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HI-RES SHAPE/ANIMATION DISK 
by BERT KERSEY 


<t“f. 

ANIMATION IN YOUR PROGRAMS! 
Put professional-looking hi-res anima- 
tion in your Applesoft programs. 

Using the keyboard, draw shapes on 
the hi-res screen and let your Apple 
convert them into “Shape Tables”. 
Shapes are then easily manipulated by 
Apple’s built-in DRAW & XDRAW com- 
mands or the programs on the disk. 

FANCY HI-RES TYPEFACES 
Create custom hi-res typefaces, large or 
small, plain or fancy. Edit any charac- 
ter to be any symbol you want. 

Six 96-character rotatable fonts are 
included on the disk, ready to use in 
titles or graphic presentations. 

Type directly onto charts, graphs 
and hi-res pictures using the type 
styles, sizes and colors that you want. 
Our proportionally-spaced type is posi- 
tionable anywhere on either hi-res 
\ screen (no vtab or htab restrictions). 


NO FEE REQUIRED 
Apple Mechanic’s routines and fonts 
are usable in your programs without 
licensing fee. Just credit BEAGLE BROS 
on your disk and documentation. 

BONUS PROGRAMS 
Apple Mechanic is packed with useful 
programs— Besides the hi-res shape 
editor, font editor and two easy-to-use 
hi-res typing programs, you’ll find 
LIST-able music and sound tricks, 
screen wipes, picture movers... 

Plus the Apple Mechanic disk in- 
cludes listable demo programs that 
teach you how to program in hi-res 
using normal Applesoft commands. 

PLUS APPLE TIP BOOK #5 
Useful tips and tricks for you and your 
Apple. Many hours of entertaining and 
educational Apple reading material. 

FREE PEEKS & POKES CHART 
Apple’s “Peeks, Pokes, Pointers and 
Calls on one 11x17 poster. An indis- 
pensable Apple programming tool. y 



Disclaimer of All Warranties and Liabilities 

Even though the software described in this manual has been tested and reviewed, neither Beagle 
Bros nor its software suppliers make any warranty or representation, either express or implied, 
with respect to this manual, the software and/or thediskette; their quality, performance, merchan- 
tability, or fitness for any particular purpose. As a result, the diskette, software and manual are 
sold “as is,” and you, the purchaser, are assuming the entire risk as to their quality and 
performance. In no event will Beagle Bros or its software suppliers be liable for direct, indirect, 
incidental, or consequential damages resulting from any defect in the diskette, software, or 
manual, even if they have been advised of the possibility of such damages. In particular, they shall 
have no liability for any programs or data stored in or used with Beagle Bros products, including 
the costs of recovering or reproducing these programs or data. Some states do not allow the 
exclusion or limitation of implied warranties or liability for incidental or consequential damages, 
so the above limitation or exclusion may not apply to you. 

DOS 3.3 

This product includes software, DOS 3.3, licensed from Apple Computer, Inc. Apple Computer, 
Inc. makes no warranties, either express or implied, regarding the enclosed computer software 
package, its merchantability or its fitness for any particular purpose. Some states do not allow the 
exclusion or limitation of implied warranties or liability for incidental or consequential damages, 
so the above limitation or exclusion may not apply to you. 



FREE NEWSLETTER 

Sign up today; your Beagle Bros Bulletin 
will be beaded for your mailbox tomorrow! 


r ir m.irME 0. NUMBER aBB 

Hello there! 

Beagle Bros Is out to Bring computer 
reading matter up to the level of the 

p e^ who use computers. Sign up 

today for the Beagle Bros Bulletin. 
^Teasy and it’s free! Just get your 
L-me and address to appear m our 
mail hox. And do it NOW, < ojL .' ^ 
trusty mail lady, Flo Chart wdl^e 
that you get your copy of the latest 
Bulletin immediately. Flo says if 
you’ve ever received anything from 
Beagle Bros by mail, you re alre^y 
on our list and will get your next 
issue as soon as it’s off the P r ® s ®. 

We’ll be printing a new BbB®^ 
every three months or so. If yours 
didn’t arrive today, stand by, we re 
working on a new one right now. 

Hot TIPS 

You’ll find tipsfor beginners, tips for 

experts, mystery programs, and nn- 
formative input from our r ®^® rs r 
We’ll be reporting news about otner 
software on the market, telling you 
wbat we like and what we don t like. 
Keep informed and entertained with 
the Beagle Bros Bulletin. 

There will he a New Peeks S’ Pokes 
- -tion in each Bulletin too. Headers 
\ already writtenus with several 
I ‘ lions to our famous chart. We re 
t >s out to uncover every Apple 
- • <ret^*fcands on. 


New Products 

Keep up-to-date on the latest Beagle 
Bros disks, tip hooks and so on. The 
Bulletin will offer complete descrip- 
tions of our products as well as news 
on product updates and tips onhow 
to make the best use of our pro- 
grams. 

Famous Columnist! 

•““"TV*. We just bought 
' "i'S?; 0 ur Uncle Louie a 
3s' •.:> word processor 

for his Apple, and 
... he’s using it too! 

: ti hr «, some of his tips 

. . ,j y- J,V have been around 

longer than Louie, 

’ but we bet they’ll 
teach you a thing 
■ ifeis si or two. As always, 

Lou ie will he 

uncle louie glaring his giant 
collection of “UL Approved” Two- 
Liners. These contest-winning en- 
tries from our readers are truly 
amazing! 

50 Free Charts! 

If you belong to an Apple users 
group (or have at least 50 neighbors 
with Appleslwe’ll equap 

number o»fep & Pupil charj 
(and BulleW^Bjpr ever 
address we^Hle. 50 j 


tame an| 
lea 


DISCLAIMER: The Beagle Bros Bulletin is nowhere near as big as depicted here. 
Two men would actually be MUCH bigger than a Beagle Bros Bulletin. 




Now Available at your Apple Dealer: 

Rert Kersev’s 

Apple Mechanic TYPEFACES 

26 all new shape-fonts for use with 
Apple Mechanic’s Xtyper and Hi-Writer programs. 


Other Beagle Bros Apple Software 

CHECK OUR APPLE MAGAZINE ADS TO SEE WHAT’S NEW. 


■ GRAPHICS m 

□ ALPHA PLOT (ip, He, licit $39.50 

Normal hi-res (6 colors, 280x192 pixels) drawing and typing 
on both hi-res pages. Compress pictures to 1/3 disk space. 

□ APPLE MECHANIC (ii+, He, not 29.50 

Create hi-res shapes for animation with Applesoft’s DRAW & 
XDRAW commands. Put fancy hi-res type in your programs. 
List & leam demo programs teach you hi-res programming. 

□ APPLE MECHANIC TYPEFACESt ... 20.00 

26 new editable fonts to be used with Apple Mechanic. 

Q BEAGLE GRAPHICS die or 128 K lie)* 59.95 

Double hi-res drawing (16 colors, 560x192 pixels) and typ- 
ing in many typestyles (all editable). Color fill, cut & paste, 
200+ color mixes. 33 new commands for using double-res in 
your programs. Convert normal hi-res pictures and programs 
to double hi-res, compress pix to 1/3 disk space... 

□ FLEX TYPE (ii*. lie. licit 29.50 

Variable-width text (wide, normal, condensed) controllable 
with normal Applesoft commands. No 80-column card reqd. 

□ FRAME-UP (ii+, He. not 29.50 

Make Apple “slide shows”. Keyboard controlled or unat- 
tended, using your existing hi-res, lo;res and text screens. 

□ TRIPLE-DUMP (ii+, ik, lie)* 39.95 

Transfer any image, including double hi-res, to your dot 
matrix printer„Make Giant (8" high characters) Banners too. 

■ allpurpose ■ 

□ DISKQUIK (lie or 128K llelt $29.50 

Acts like half a disk drive in slot 3. Silent and fast as a hard 
disk. Load/save files in memory with normal commands. 

Q FATCAT (ii*. lie, iici* 34.95 

Reads all of your DOS 3.3 and ProDOS file names into one or 
more Master Catalogs for sorting, searching and printing. 
Alphabetize file names on disks. Compare any two files. 

□ PRONTO-DOS(ii+,iie.iic)t 29.50 

Triples the speed of loading and saving. New TYPE com- 
mand displays text file contents. Move DOS for extra 10K. 


■ PROGRAMMING ■ 

□ BEAGLE BASIC die, mk iwt $34.95 

Puts Applesoft in RAM so you can change it and add 
enhancements — new commands like if-then-ELSE, SWAP 
variables, GOTO/GOSUB-a-variable, TONE, HSCRN, etc. 

□ DOS BOSS (II+. He. not 24.00 

. Reword DOS 3.3 commands. Change “Catalog” to “Cat”, 

“Syntax Error” to “Oops” or anything. Includes many meaty 
tips for altering DOS, including program “save-protection”. 

□ DOUBLE-TAKE (ii+, He, ik)+ 34.95 

2-way scroll for Listings & Catalogs. Better List-format, fast, 
variable+line number display, better renumber/append, 
auto line-numbering, instant hex/dec converter and more. 

Q GPLE (ik iie, iic)* 49.95 

Edit Applesoft without cursor-tracing. Features insert & 
delete and fast search & replace. Make all keys be “function 
keys” to type anything you like (ESC-1 catalogs disk, etc.). 
Move DOS 3.3 out of main memory to add 10K of space. 

□ SILICON SALAD di+, He, licit 24.95 

Over 100 utilities and tricks— hi-res program splitter, DOS 
killer, disk scanner, hi-res text imprinter, 2-track catalog... 

□ TIP DISK #1 (II+, He, licit 20.00 

100 tips on disk from Tip Books 1-4. Fascinating Apple 
programming techniques. Includes Apple Command Chart. 

□ UTILITY CITY (ii+. He. not 29.50 

21 utilities— List-formatter puts each statement on a new 
line, multi-column catalogs, invisible/trick file names, etc. 

■ games • 

□ BEAGLE BAG oh, lie, ho $29.50 

12 games on one disk. Voted to 1983’s MOST POPULAR list 
in Softalk poll. The best Apple game bargain on the market. 


t Supports DOS 3.3 only 
★ Supports DOS 3.3 and ProDOS T “ 
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EBMQK TOKENS 

Tokens are machine language equivalents for the commands and 
characters in your Applesoft programs. See our Tip Book #3 for 
more details. The tokens I don’t understand are 235-255 (that’s 
why you won’t find them in Tip Book #3). Type this program 
and run it— 


5 REM 

% ..= 235 TO 255: POKE 2053, X 

/ Llfaf 5s NEXf s POKE 2053,1.78 ' 

Line 6 changes Line 5 and Line 7 lists it. But why all those 


messages? Who knows? 


error 



NOT A PROGRAM YOU’LL USE EVERY DAY 


10 I EXT s HOME : PRINT "ARABIC"' TO RDM A 
N CONVERTER < 1 -9999)" 

4® x f ■ "IVXCDMXLCIVX": GOTO 130 
iS w PR1N .Tj l yy?[ yT , "ARABIC NUMBER: "»N» 

W N 7 VAC <N$):L = LEIM <N*) ;; IF‘N <' 

1 JR N .> 9999 THEN 30 
II" L < 4 THEN FOR I ® | TO 4 ••••• I 
* “ "0" +„ M*a NEXT 
I- OR I = ;i j'O 4JNTI) = VAI. ( MID* 
Nf»i, J. , l ) ) s NEXT 

r'nr, N t 8 *? R i NT "ROMAN NUMERAL.!!"? 

■ IU , 4s RESTORE !, FOR J = 
ro N ( I ) + Is READ A*: NEXT s IF 

V% N -»? ??' S , S ATA :l » 1 1 1 1 

1 1"' 1 1 AND N < I ) ' < 4 THEN FOR X s* 

120° N<:C>S PRINT "M-ii NEXT sBOTO 

f /§S % Z :I ;, T0 LEN <A*)b PRINT 

s A •?> » $ s .1. j, ) 

X , 1 ) ) ,, :l. ) !J 8 NEXT 
IF I 1 AND NCI.) 

(A*): CALL - 998 
,+ ' 1 ■“ Ls FOR X = 

5 s NEXT s CALL 

NLX I 

PRINT s PRINT 8 FOR 
- J * NEXT s GOTO 30 


50 

60 

70 

80 

90 
1 00 
1 1 0 


1 20 
1 30 


iN 

< 


1 

A 


VAL < MID* 


MID* 

(A*, 


> 3 THEN L - LEN 
HTAB PEEK (36) 

1 TO Lb PRINT CHR* 

..... op r :> n 

t .i... rf... 

,1 = 1 TO 40b PRINT 
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FLASH FLASH FLASH 

It’s nice to be able to call attention to a screen statement, but 
Apple’s FLASH is a bit too flashy for me. Instead of making it go 
inverse/normal/inverse/normcil, I wish they had made it go 
normal/nothing/normal/nothing. That’s why I sometimes use — 


1 0 
20 

TEXT s 
VI" AB 9 

HOME iQ* - 
a HTAB 1 

CHR* <34) 

30 

PRINT 

"PRESS K 

EY„ " 

40 

50 

FOR X 
VTAB 9 

« 1 TO 250s 
s HTAB 1 

NEXT 

6 0 

PR I NT 

"PRESS ANY H 

EY. " 

70 

FOR X 

"" 1 TO 250 s 

NEXT 

80 

20 

EK < 1 638^ 

) !! I F K < 1 2i 

90 

POKE 

- 16368, 0s V 

TAB 9s HTAB 1 

1 0! 

» PRINT 
* ;i CH 

"THANKS POE 
R* ( K 128) 

PRESSING THE 
!j Q* !j " KEY,," 


DISK FIXER 

If you’ve got a disk that won’t boot or is giving you a bad time in 
some other way, there’s just a chance that you can repair it with 
the Master Create program on your System Master disk. Just 
BRUN MASTER CREATE and insert the disk you want to fix. It 
will rewrite Tracks 0-2 (DOS) for you, and maybe that’s where 
your problem was. While you’re at it, Master Create will let you 
change the name of your disk’s greeting program too. But then so 
will Byte Zap, and with a lot more flair! 

NOTRACE CATALOG 

You know how you can move the cursor up into a catalog with 
esc-I-I-I, etc., type “RUN”, and then trace over the file name? Well, 
you can’t do it if you run this program first: 

10 PRINT CHR* <4> :i "CATALOG" 

20 FOR I = 1 TO 47' STEP 2 

30 S = SCRIM < 7,1):! IF S = 12 OR S •••- 13 

THEN COLOR™ S 4s PLOT 7,1 

40 ME XT- 

Line 30 changes the first character of each file name to a control 
character (on the screen only). And even though ctrl-characters 
can sometimes be seen, they can’t be traced! 
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HOW BIG IS THAT PROGRAM? 

One way to tell the size of a program is to save it and look in the 
catalog. Every sector, not counting the first one, is about 256 
bytes in size. Divide the sector count by 4 and you have roughly 
the size of the program in K’s. For example, a 48 sector file 
occupies about 12K or 12,000 bytes. 

Another way to tell a program’s size is to load it into memory and 
then subtract it’s start address from it’s end address, like so: 

PR :i: NT < PEEK < :l 75 > + PEEK < 1 76 ) * 256 ) 

-••• ( PEEK ( :l. 03 ) + PEEK < :l 04 ) * 256 ) 

This typing exercise will tell you the number of bytes your 
program occupies. The start address is usually always 2049, so you 
can use 2049 instead of the second pair of peeks. 


FUTURE FANCY FILER? 

Remember Kareem Abdul Murphy from Tip Book #1; the guy 
who can do a CONTROL-RESET with one hand? Well, he just 
came up with this terrific program he’s wants to market. He says 
it still has some bugs, but will be finished near the end of next 
month (where have we heard that before?). Anyway, here’s his 
program. Anyone out there know anything about software 
marketing? 


19 

26 

40 
47 
54 
6 ;l. 
68 
75 
82 

89 

96 


HOME 
V TAB 
PRINT 
PRINT 
PRINT 
PRINT 
PR I NT 
PR I NT 
PR I NT 
PRINT 
VT'AB 
GET 
V'T'AB 
LABI... 
NORMAL. 
.1 9 


:L 1 


II 

<> . 

>1 . 

»l . 

r 

" < F 
"<F 
" < F 

II . 

15 k" 

F $ !! 

1 5 K 


TAB Ik INVERSE 
1 L E R 1 ' K IM 0 R M A I.... s P R I N " 
HMD FILE" 

•ILL FILE" 

T X F T I F 1 ' 

FACILITATE FILE" 
OCUS FILE" 

ILE FILE" 

I NISH" 

PRINT "SELECT 
PRINT F* 

INVERSE PRINT " MOT 
k CALL •••■• 958 s NORMAL 
FOR I = l TO 999s NEX 


UIMCT I ON s " jj s 
AVAI 
s GOTO 


FUNNY INVERSE 

We just bought a new Apple and it puts 
out inverse type that looks like this: 

instead of our old Apple’s style: 

Nobody knows why. We all prefer the old version, 

probably because we’re used to it. Can anyone out there tell us 
how to convert our hardware to the old style inverse? 



4 TIP BOOK #5 




& etc. 

All right, lookit, if you’re going to be serious about this computer 
stuff, it’s time you got your character names straight. Here’s the 
rundown; there will be a quiz on Monday— 


This is called an ampersand. 

;j) This is called an at sign. 

% This is called an asterisk 
II This is called a square bracket. 

) This is called a parenthesis 
* This is called a little pointy thing. 


WHO CARES DEPARTMENT 

“PRINT (return) will print a zero. “PRINT . will print two 
zeros. “LET N = sets N equal to zero. “LET N = . hits you 
with a PSYNTAX ERROR. 


NUMBER UNCRUNCHER 

Have you ever wanted to dissect a decimal number into its 
separate digits? Here are two ways to do it: 

.10 INPUT “ANY WHOLE NUMBERS " 5 Ns N = I NT 
(N)sL. LEM < ST RT (N) ) s IF L > 9 
THEN 10 

.20 FOR X = 1 TO LsE = L + 1 - X s MOD * 
INT ( N / 10 E) * 10 EsMOD ■ N 
••• MODsD(X) - INT (MOD / <10 <E 
!>)).“ NEXT 

30 FOR X = 1 TO Ls PRINT “DIGIT #“ s X s “ 
s “!|D(X)S NEXT 
40 PRINT s GOTO 10 


The above method does the dissecting mathematically. Below, we 
do it with strings and things. It is much much faster— 


10 INPUT “ANY 

WHOLE NUMBE 

■Rs “ i| Ns N 

ss 

<IM)sNifi ~ 

L. > 9 THE! 

S'T'Rli <N)sL 

s\ 10 

= LEN 

<N$) 

20 FOR X = 1 " 
N* „ X „ 1 ) ) s 

TO LsD(X) = 
NEXT 

VAL ( 

MI D* 

30 FOR' X' = 1 " 
s “ i! D ( X ) s 
40 PRINT s GO' 

ro Ls PRINT 
NEXT 

ro 10 

“DIGIT 

#“!! X 
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ONERR ERROR LISTER 

Here’s a good one— This program has an intentional error in 
Line 12345. Type it in exactly as you see it. Be careful; a typo in 
Line 60000 can really create a big mess when you run the 
program (I know; I’ve been there). 


10 ONERR GOTO 60000 

1000 REM YOUR PROGRAM HERE 

12345 PRINT sPIRNTs PRINT s REM TEST; 

2ND "PRINT" MISSPELLED 
59999 END 


60000 T = 256 ;E = PEEK (220) + T * PEEK 
(221)sE = E + 5 * ( PEEK (E) = 0); 

V = PEEK <E>2 POKE E,207sL* = RIGHT* 
("0000" + STR* ( PEEK (218) + 7 * 

PEEK (219) ) , 5 ) s L = PEEK (121) + 

T * PEEK (122) + 49s FOR I = 1 TO 
5s POKE L + I, ASC ( MID* (L*,I,;L) 

NEXT s LIST 00000s POKE E, Vs POKE 


List 
216,0s RESUME 


) 


Save the program and then run it. What you will get is the usual 
error message and a listing of the offending line with an arrow 
(greater-than sign) pointing to the statement that caused the 
error! No more searching; a big help if you’re like me and use six 
pounds of statements on each line. Add Lines 10 and 60000 
(could be any line numbers) to one of your programs in progress. 
It’s a great de-bugger! 


LEGAL NAMES DEPARTMENT: 

VARIABLES must start with an upper case alphabetical character 
A-Z. The second character may be A-Z or a digit 0-9 (or 
nothing). Characters after that don’t count but they have to be 
letters or numbers. FILE NAMES, however, may start with your 
choice of 64 normal or control characters (not to mention 
inverse and flashing), but not characters with ASCII values 32-63. 
File names may not contain commas. 


BLACK + WHITE = COLOR 

You can’t trust anything. Here’s a program that makes color lines 
out of black and white. I’d explain it, but it’s 2 a.m. and I’m at a 
loss for words right now. 


1 0 
20 


30 

40 


50 
6 0 


HOME s HBR s HC0L0R= 3s REM (OR 7) 
FOR Y = 10 TO 40 STEP 10s HPLOT 0 „ Y 
TO 279, Ys NEXT s REM (PLOT WHITE 
LINES) 

FOR X =- 0 TO 200 STEP 2 
FI COLOR-'- 0 s HPLOT X ,, 10s HPLOT X + 1, 
20s REM (ADD #0~&LACK TO MAKE #;l.-~ 
SREEN & #2 --VIOLET) 

HC0L0R-- 4 s HPLOT X„30s HPLOT X -i- 1 , 

40s REM (ADD #4 SLACK TO MAKE #5 : - 

ORAIMGE & #6 BLUE) 

NEXT Xs VT'AB 20s END 
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Did you ever want to make someone boot your disk before they 
could run your program? Here is a simple way to do it: 

1. Put a blank disk in Drive 1. 

2. Type “POKE 47721,123” (return). 

3- Type “NEW” (return). 

4. Type “INIT HELLO” (return). 

In a minute or so, you will have a new master disk from which 
you will make copies. Use LOAD and SAVE (or FID) to transfer 
your programs to the master disk. Now put this command near 
the start of each of your programs: 

1 IF PEEK <47721) < > 123 THEN PRINT 

CHR$ (4); "PR#" ; PEEK <43626) 

47721 is a location unused by DOS 3-3- PEEK(43626) is the 
most recently used slot number. “123” could Ire any number, 
0-255, as long as it matches the poke number in step 2. Odds are 255 
to 1 that your disk will be booted before your program is run. 

THE INCREDIBLE SHRINKING numbers 

This program demonstrates Apple’s handling of small numbers: 

10 X = 1 

20 X = X / 10s PRINT X! GOTO 20 

And big numbers: 

10 X = 1 

20 X = X * 10! PRINT X: GOTO 20 

I don’t know how they came up with the “E”. Probably stands for 
Extrahuge and Extrateensy, right? 

AHA! A USE FOR VERIFY 

When you want to READ a text file, you first have to OPEN the 
file. If the file doesn’t exist, you’ll get an “END OF DATA” 
message and you’ll acquire a new one-sector file name in your 
catalog, even if you used ONERR to trap the error. Fooey! To 
prevent this, VERIFY the file first, then OPEN it. If VERIFY 
doesn’t find the file, ONERR catches your mistake, and life goes 
on with no file added to your catalog. 
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MECHANICAL MEMORY MOVER 

Have you ever wanted to move a chunk of memory from within a 
program without going into machine language or using 
Applesoft’s clunky CALL— 468? Well, here’s an idea; it may be a 
little slow, but it sure works. Just BSAVE the memory chunk and 
then BLOAD it where you want it. For example, to store the text 
screen (S400-7FF) at AS6000, these lines could be in your program 

1000 PRINT CHR* (4); "BSAVE TEXT,A$400 

„ L$3FF" 

1010 PRINT CHR$ (4); "BLOAD TEXT, A$<£>000‘ 
The following will clear the screen, pause, and then bring 
the text screen back where it belongs— 

2000 HOME s FOR W = 1 TO 2345: NEXT 
2010 PRINT CHR$ < 4 ) 5 "BLOAD TEXT" 


FREE APPLE MAGAZINE 

If you have never received Softalk Magazine, a really good (and 
big) Apple publication, you can get it FREE for a year, by 
sending your Apple’s serial .n umber with a request for 
subscription to— ' 

y' n ,.i7 ) SOFTALK Circulation 

11021 Magnolia Boulevard 
North Hollywood, Ca 91601 

**!§§ 

GRAND PRIX APPLE 



Peter Lake, from somewhere-out-there, called us here at the 
Beagle Building to report on his customized Apple environment. 
It seems Peter is a professional writer and uses an Apple as a 
word-processor all day, every day. So he mounted his system on a 
drawing board tilted about 15 degrees. To level his monitor, he 
built a wedge-shaped mount that rests on his Apple. He painted 
his Apple’s case black to reduce glare (I never noticed the 
problem) and, inspired by one of our tips, glued sequins to his K 
and D keys so he can feel his fingers’ position on the keys 
without looking. Now the best part: He sits in a special race car 
seat, head rest and all, leans back and types away. I asked him if 
he wears a seat belt; he said, “Only when I type fast.” 


8 TIP BOOK #5 


LC EQUIVALENTS : 

If you have lower-case hardware in your Apple, you can enjoy 
lower-case characters on your text screen. If you write programs 
for other people’s Apples, however, you don’t dare use lower- 
case text-screen text (hi-res lower case is no problem). You 
must assume that no one else has lower case capabilities. To see 
the equivalent characters that others might see when a program 
says PRINT “Hello”, type: 

10 INVERSE s PRINT "Hello" 


In this case, you will be presented with^^53( in INVERSE). 
That’s what non-lower-case Apples will produce, even in 
NORMAL mode. By the way, this little tip helps prove that there’s 
no way to print INVERSE or FLASHing lower case. 

If you are about to add lower case hardware to your Apple, 
shop around. Have your dealer show you a comparison of the 
typestyles available. A couple of the popular ones look like they 
were designed by engineers, not typographers. Poorly designed 
(ugly) text screen type can really slow you down, especially if 
you are doing word processing. 


HOW MUCH DATA? 

If you wonder how many items you have in a DATA statement, 
don’t count them; let your Apple count them. Temporarily insert 
a giant loop at the start of your program, like: 

3. FOR X = 1 TO 3. 000000 s READ A*s NEXT 
Run it. Sooner or later, you’ll get an “POUT OF DATA” error 
message. Now type “PRINT X— 1” (return). The value you get 
for X— 1 will tell you the number of items of DATA you have. 



DELAY LOOPS 

When you want a program to stop and wait, make your Apple sit 
there and count to some big number (your Apple doesn’t mind; 
in fact it’s good for him). Insert a statement like— 

100 FOR X = 1 TO 2000s NEXT X 
Every 1000 is approximately a one-second wait. If your program 
is going to pause many times, use a delay loop as a subroutine 
(GOSUB) to save memory. 
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COLUMN POKER 

To make a flush left column in the middle of the screen, you can 
do this: 

10 HOME s VTAB 10: HTAB 15: PRINT "A ST I 
TCH" : HTAB 15: PRINT "IN TIME": HTAB 
15: PRINT "IS WORTH"; HTAB 15: PRINT 
"TWO IN": HTAB 15: PRINT "THE B1JSH„" 

But why not poke locations 32 and 33 and do this? 

10 VTAB 10: HTAB 15: M$ = CHR$ (13); POKE 
32,14; POKE 33,26: PRINT "A ST ITCH "M 
V IN TIME"M$"I& WORTH "M^" TWO IN"M$"T 
HE BUSH.": TEXT 

The second method takes less typing time and less memory. Just 
poke 32 with a number one less than the column number, and 
poke 33 with 40 minus PEEK(32). You can sometimes forget 
the poke at 33 if you are not going to print off of the screen 
(causing wrap-around). If you do, and PEEK(32) 
totals more than 40, you can — 

(a) zap your program. 

(b) make your drive go “BLAA-AATT!” 

(c) cause wrap-around to the wrong line. 

(d) prove me wrong. 


A DIFFERENT APPROACH 

If a programming solution 
is getting you down, try 
looking at it from a whole 
new angle. And if you’re 
really stuck, start over 
from scratch. 

ERRORLESS ERRORS? 

Applesoft just love 
handle. Try HPLOT 0,300 for example. You’ll get an PILLEGAL 
QUANTITY message because 300 is too large a number for a hi- 
res plot. Wouldn’t it be nice sometimes if Applesoft just ignored 
an error instead of scolding you? Well it seems to do just that 
with its MIDS, LEFTS and RIGHTS commands. Try this: 

10 A$ = "FISH": FOR X - 1 TO 9 
20 PRINT X ; " . " 3 LEFT $ <A$,X>: NEXT 

Theoretically the program should bomb when X becomes greater 
than the length of AS which is 4. But it doesn’t! For example, 
when X is 7, Line 30 asks the computer to print the left 7 letters 
of a 4-letter word. MIDS and RIGHTS seem to work the same 
way, and I don’t mind at all; it’s one detail I don’t have to look 
for when debugging. 
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:: i mal d i sassembler 

BY BERT KERSEY (Read my column in the April 82 
BEAGLE" BROS Softalk for more details.) 


20 

TEXT 

' s HOME 

30 

D I M 

SC ( 24 ) s 


128 

i * I + 


/ 

8 ) ) -i" E 

40 

GOTO 

i 120 

50 

POKE 

58 „ ST 


PG 

iKE 59 K 


RE 

START ' L 

60 

HOME 

s INVE 

II.. .. 1... 


i( ii 1 

I MAL- 11 

70 

VTAB 

1 s CAL 

80 

FOR 

V ■ 2 T 


NORMAL 

)R I = 1 TO 24 s SC 
(984 * I NT < ( I 


I N'T (ST / 258) * 258 s 


PR I NT 


-HEX- 
DEC 


I ~ 258 * Xsl-I « 2s GOSUB :1.50s VTAB 
Vs HTAB 2:Ls PRINT XHI + X ?"••■•• " S s CALL 
- 888 s REM (PRINT DEC . LOCATIONS) 

HTAB 28s FOR H ■ 8 TO 14 STEP 3s GOSUB 


1 50 s I F X 


0 THEN PRINT SPC < 


(X < 100) -I- (X < 10) ) g X !! " "g 
NEXT s NEXT 

PRINT s VTAB 24s PRINT "OR < RETURN 
> TO CONTINUE OR <Q> TO QUIT,,"? 

VTAB 23s HTAB Is INPUT "ENTER NEW 
START LOCAT I ON s " ? ST* s I F ST* ■ 11 " THEN 80 

IF ST* ■ "Q" THEN VTAB 22s CALL 958 

s END 

ST ■■■■ VAL (ST*) s GOTO 50 

PI » PEEK (SC(V) + H ) s P2 a PEEK ( 

SC(V) + H + 1 ) s X - 18 * (PI 178 

7 * (PI > 185) ) + P2 - 176 •» 7 * ( 

P2 > 185) s RETURN 


Alpha Plot 

Hi-Res GrapMca/Text Utility 
by Bert Kersey & Jack Cassidy 

Here are just a few of Alpha Plot's easy-to-use 
features. Compare with others on the market— 

Hi-Res Drawing: Create hi- res pictures and 
charts with text on Doth pages of memoiy; all 
appendable to your programs. Optional Xdraw 
cursor (see lines before you draw). Color mixes 
and Reverse (opposite of background). Circles, 
Boxes, and Ellipses, filled or outlined. Scruncher 
stores hi-res in 1/3 disk space. Shifter redraws 
any portion of your picture on either hi-res screen 
Also superimpose images and convert hi-res to lo- 
res and back for fascinating abstracts! 

Hi-Bes Text: Beautiful upper 6* lower case 

with descenders (no hardware required). Color or 
reverse characters positionable anywhere (no 
vtab/htab restriction). Professional-looking 
proportional spacing with adjustable height, 
leading (line spacing), and kerning (letter 
spacing). Multi-directional typing too for charts! 

ONLY □ Alpha Plot on Disk (48K min 
$ VXQ80 □ Beagle Bros Apple Tip Book *4 
□ Peeks, Pokes 6* Pointers Chart 


Utility City 

21 Useful Utilities on One Bisk 
by Bert Kersey 

21 versatile utilities you can list, customize and 
back-up: List Formatter makes properly spaced 
and indented listings with printer page breaks; 
each statement on a new line with if-then's and 
loops called out; a great de-bugger! Catalog in 
multiple-columns and any page-width to printer 
or screen. Automatically post Run-number and 
last-used Date in your programs. Put invisible 
functioning commands in your listings. Access 
program lines in memoiy for garbage repair and 
‘‘illegal’’ alteration Quickly alphabetize and store 
info on disk. Run any program while another stays 
intact. Renumber to 65535. Save inverse, trick and 
invisible file names. Convert decimal to hex & 
binary, or I NT to FP. Append programs. Dump text 
screen to printer... More too; 21 Programs Total! 

ALL 81 PROGRAMS □ utility City on disk (48K minimur 
$9Q50 □ Beagle Bros Apple Tip Book *3 

w & □ Peeks, Pokes 6* Pointers Chart 
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MEM SAVER 

To draw a line of hyphens on the text screen, you can use: 

, II 

This works fine of course, but it uses 43 bytes of memory every 
time you do it. No problem if you’ve got memory to burn. The 
following line does the same job and uses just 15 bytes: 

10 FOR X = 1 TO 40: PRINT ; : NEXT 

Remember, if you need to draw this line several times in the 
same program, set it up as a subroutine. Just tack a RETURN” 
on the end. The cost? Only two more bytes; one for the colon 
and one for the “RETURN”. 

GET INFO 

GET is a funny animal. Here are today’s GET quirks: 

a. If you GET a number with a statement like “GET X”, but input 
a letter, the program bombs with a ?Syntax Error. 

b. With P.L.E., GET interprets a Right Arrow (ctrl-U, ascii 21) as 
a space or whatever character happens to be under the cursor, 
but it interprets a Left Arrow (ctrl-H, ascii 8) correctly. 

c. GET interprets the length of a carriage return as 1, whereas 
INPUT considers the length zero. 

d. A GET AS won’t let ctrl-C exit a program unless you say 
“IF A$=CHRS( 3 ) THEN END”. 

Here is a getter that might teach you something: 

10 PRINT "ANY KEY:" ; : GET A$ 

20 PRINT A*, ASC <A‘4D : GOTO 10 

Run this program and try out the above quirks. 

PLEASE ANSWER (Y/N): 

If your program is looking for a yes or no answer, it is best to 
GET a one-character answer, something like: 

10 PRINT "ANSWER <Y/N>:";; GET A$ 

Oh, yes— something we learned the hard way: Someone could 
answer with a lower case “y” or “n”. I think Murphy’s Law says 
you should be ready for this. GET, by the way, is better than: 

10 INPUT "ANSWER (YES/NO) s " ; A$ 

The problem with INPUT is that (I don’t know why) people 
often put a space after their answer, and even the dumbest Apple 
knows that “YES” is not equal to “YES ”. 

STEP-LIST 

During a long listing, hold the CTRL key and the S key with one 
hand and the REPT key with the other hand. You can slow your 
listing down this way. 

Note: The above tip has been classified as worthless by the Beagle Bros staff. 
Please tear it out of your book right away. Thank you. 
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SEMI-SUPER SORTER 

This little program writes fifty useless (and hopefully clean) 
words for you and then alphabetizes them in around 1 5 seconds. 
Can you write an Applesoft program that will do the sort faster? 
On your marks... 


10 

N » 

50a REM NUMB 

ER OF WORDS 


20 

D I M 

Adi <N) 



30 

HON 

E a PRINT "< 

"iiNii " R'ANDOP 

WORDS > " 


it 

ii 

■■'R I NT 


40 

FOR 

I 1 TO N a 

FOR ,7 = 1 T 

0 5 -i- IN 


( 

E'ND ( 1 ) * 5) 

sAdiU) -- Adi ( 

1 ) + CHR 


( 

I NT ( RND <1 

) # 26) + 65 

) a NEXT 


ii 

: "'R I NT Is 

Adi (I) a NEXT 


50 

PRINT a PRINT “ 

< SORTED LIST 

>" a PRINT 

60 

A = 

1 a L =~ 0 a Z = 

1 


70 

FOR 

X = A TO Na 

FOR Y = A ”1" 

0 IM a I F 


A*<X> > AdXY) 

THEN A sa Ya 

GOTO 70 

80 

NEX 

r at... = 1 ... z 

aXdi = Ad> ( X ) a 

A$ (X) = 


Adi 

a.) a Adi a... ) a* 

X$ a PRINT L 
< «•••• N THEN 

11 " 5 X di a A 


sa 

L + Za IF A 

70 ’ 

90 

NEX 

r 




WATCH YOUR 3’s AND 2’s 

Don’t fret if you have to look at the keys when you type numbers. 
Mistyped numbers are the source of some of the toughest 
programming mistakes to find. I’ve found it pays to slow your 
typing down about two beats when numbers come up, and it 
doesn’t hurt to watch what you're doing either. 



?POP WITHOUT GOSUB ERROR 


POP is an Applesoft command to be used when you do a GOSUB 
but then decide not to RETURN. Without POP, things may work 
alright for a while, but sooner or later you’re going to get an 
?OUT OF MEMORY error, as in— 

10 PRINT X;" SUIT" r, s GOSUB 50 
50 PRINT "CASE ":X = X + 1 

60 GOTO 10 

When X reaches a value of 24, you’ll get an error message. Line 
60 should read- 

60 POP : GOTO 10 

If a program encounters a POP when no GOSUB has been 
executed, you will get a PRETURN WITHOUT GOSUB error 
message. Not quite correct, but you get the message. 
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ANOTHER FREE CHART!? 

If you’ve got an 80-column printer, here’s a handy chart program. 
Just type it in, run it, and get out of the way— 


10 FOR I = :l TO 69 !,' L* ■ L* ■+• NEXT 

IS PR# 1 a REM PRINTER SLOT 
20 FOR I = 1 TO 6 s PRINT s NEXT- 
30 PRINT SPC< 3) !| "INVERSE " s SPC < 8)!!" 
FLASH";! SPC ( i0) i| "CONTROL" SPC < ‘ .1. 

4) s "NORMAL" s PRINT L* 

40 FOR ' V = 0 TO 63 s FOR IM ~ V TO V + 1 
92 STEP 64 

50 IF N > 159 AND N < 255 THEN X* ■ CHR* 
<IM)s GOTO 90 

60 IF N « 255 THEN X* = " " s GOTO 90s REM 
MAKES CHR* (255) PRINT AS A SPACE . 
DEPENDS ON YOUR PRINTER,. 

70 X - Ns X ■ X + 192 * (N < 32) + 128 * 

(N > 3.1 AND N < 96) + 64 * <N > 95) 

80 X* = CHR* (X) 

90 PRINT " " !is GOSIJB 140s PRINT " 11 ?, 

X*s" " !| Ns SPC< <N < 100) -i- (N < 10 
))?" " ii ;; IF N > 127 THEN PRINT "I 
" ii N ••••■ 128;!") SPC< <N ~ 128 < 10 
0) -I- ( N •■■■'128 < 10))!! 

100 PRINT " " ;: ;; NEXT Ns ' PRINT s IF V ■+■ 

1 ■•••• I NT <<V + 1) / .16) * 16 > 0 THEN 

1 30 

120 PRINT ;:T = T + Is IF T = 2 THEN PR 

SPC ( 3) s " INVERSE" 5 SPC < 8) !| "FLASH 

" !! SPC < 1 0 ) i! " NORMAL " 5 SPC ( 1 5 ) !! " LO 

wEr case" s Print l* 

130 NEXT Vs FOR I = 1 TO 6 s PRINT s NEXT 
s PR# 0s END 

140 PRINT " * " s s NX = N / :1.6s GOSUB 150s 
N'/» = N •■■■ NX * 16 s GOSUB 150s RETURN 
50 PRINT CHR* (48 + NX + 7 * (NX > 9 
) ) s s RETURN 


This chart shows you the values for all 256 normal, inverse, 
flashing and control characters. It also serves as a handy ASCII 
conversion chart and 0-255 hex converter. The program was 
going to include a complete biorhythm chart for everyone born 
in this century and a full-size hi-res rendering of Zasu Pitts, but 
we’re saving those features for Tip Book #32767. 
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HI RES FLIX 


This program lets you flip between two hi-res pictures at a 
predetermined rate. Variable W1 controls the time page one 
shows, and W2 does the same for page two— 

10 TEXT' s HOME 

20 INPUT "PAUSE 1 <0-300) i W1 

30 INPUT "PAUSE 2 <0 500>s"iiW2 

40 POKE 16304,0 s POKE 16302,0 a POKE 
•™ 16297,0 ' 

50 POKE ■•••■ 16300,0s FOR I = 1 TO Win NEXT 

s POKE 16299,0s FOR I - 1 TO W2 

s NEXT s GOTO 50 


BLOAD any two hi-res pictures before you run the program by 
typing “BLOAD PICTURE- 1,A$2000” (return) and “BLOAD 
PICTURE-2AS4000” (return). S2000 & S4000 represent the 
addresses of page 1 & 2. “PICTURE 1” and “PICTURE-2” are the 
names of your 2 hi-res pictures. Run the program and notice the 
effect different rates of flicker have. If you want, remove the delay 
loops entirely from Line 50. 

A machine-language version of the same program resides 
below. Notice how (humungously) much faster it is! It is so fast 
that if you use a small wait value (W1 or W2), a picture doesn’t 
have time to be completely “printed” on the screen before the 
page switch is made. You’ll have to stop the program with RESET. 


1 0 
20 
30 

40 

50 


TEXT s HOME 

INPUT "PAUSE 1 <0-80)»"«Wl 

INPUT "PAUSE 2 <0 80>s"«W2s IF W2 > 

80 OR W1 > 80 THEN 10 ' 

POKE 768,141s POKE 769,84s POKE 770 
I 92 

p6ke"“' 771 „ 62s POKE 772,0s POKE 773,0 


60 

FOR I = 4 TO W.l. -i- 3 s POKE 
34s NEXT 

770 + 1,2 

70 

: ”'0KE 770 + 1,141s POKE 77.1 
772 + 1,192' 

+ 1 , 85 s POKE 

80 

FOR J = .1 TO W2s POKE I + 
34s NEXT 

J •+• 772,2 

90 

POKE 772 + J + 1,76* POKE 
1,0 s POKE 774 + ' J •+■ I „ 3 

773 -I- J -i- 

1 00 

1 1 0 

POKE - 16304,0 s POKE' 

•- 16297,0 

CALL 768' 

16302,0s POKE 
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SUPER DEL 

Sometimes you may want a program to delete its first few lines, 
especially if those lines BLOAD a file and you don’t need it BLOADed 
the next time you run it. The DEL command will work in a program, 
BUT the program stops right there. So forget DEL. Instead, why not 
have your program change the start of program pointer? You can do 
this “on the fly”, telling your Apple that the third line (or any line) of 
your program is now the first line (an Apple will believe anything). 
Type this program, SAVE it, RUN it, and finally LIST it. The first two 
lines, which could be BLOADers, will disappear! To get them back, 
do two pokes— POKE 103,1 and POKE 104,8. 


10 

20 

30 


REM THIS IS LIME 10. 

REM THIS IS LINE 20. 

-DC = PEEK 01.2:1.) •+• PEEK OL22) * 256 
+ la POKE 103, LOC - I NT (LOG / 

256) * 256s POKE 104, I NT (LOC / 256) 


ERROR BREAK 

If you try to load a non-existent file with an immediate (not in a 
program) command, “LOAD XYZZY”, you get a normal “FILE 
NOT FOUND” message. If you have a program in memory that 
has been run, and type an immediate (again, not in your 
program) “RUN XYZZY”, you get a “FILE NOT FOUND, BREAK 
IN 123 ” message, where 1 23 is the last line executed. 


BOX EYES & SNAKE CARS 

One reason I’m a computer nut is that I like messing with 
statistics. Which reminds me of this little dice rolling program 
that proves that sooner or later, 1 out of 6 dice rolls will come 
up totaling seven: 


10 HOME s ONERR GOTO 130 

20 I =■•■••• I + 1 

30 VTAB 12s HTAB 1 

40 SUM - SUM ■+• Is A - I NT <6 * RND 01.) 

) + IsB - I NT <6 * RND 01)) + Is 
NORMAL s IF A + B = 7 THEN SEV = 

F3 H"' V + 1 

50 PRINT DICE ROLLS"? SPC < A < 10) n 
An" +" i| SPC< B < 10) s B;; " = " s 

60 IF" A -I- B = 7 THEN INVERSE s PRINT 
" 7 "s: GOTO 80 

70 NORMAL'S PRINT A + B? s CALL. - 868 

80 PRINT s PRINT s NORMAL. 

90 PRINT SPC< 5) s "SEVENS s SPC < (SEV 
< 1000) + (SEV < 100) + (SEV < 1.0 
) ) 5 SEV 

100 PRINT BPC< 12)3" ="s: HTAB 2 

3 s P R I N T " „ 0 ■/. 1 ' i| s l-l T A B 2 1 s ' P R I N "I" I N T 
(1000 * SEV / SUM) / 10 

110 PRINT "TOTAL ROLLS:"* SPC < (SUM < 
1000) -I- < SUM < 100) -T (SUM < 10)) s 
SUM 

120 GOTO 20 

130 END s REM JUMPS HERE IF CTRL C 
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560-PLOT hi res 


Sure, watch — 
Just yell 

“HGR!” 

as loud as 
you can. 


So tell me, 
Hi-Res Harry — 
will those 
pictures ever 
go away? 


This program proves the existence of 560 horizontal hi-res plots. 
First, a normal bumpy hi-res line is drawn from 0,0 to 75,150 
(DX,DY). Then we draw a parallel super-smooth (but slow) line. 


10 

HGR a HOME 







20 

DX ■ 75s DY 

i 

50 





30 

HCOLOR® 3s 

HP 

L0"l 

I" 0,0 

TO DX, 

DY 

!! REM 


NORMAL L ] 

:ne 






40 

FOR Y = 0 

TO 

DY 





50 

X ."■••• 20 + 2 

* ( 

DX 

* Y / 

DY) 



60 

ODD ~ I NT 

(X) 

.... 

I NT 

<X / 2 

:) 

& 

'T’ 

70 

HCOLOR™ 1 3 

-I- 4 

* 

ODD 




80 

X = X / 2 







90 

HF'LOT X Y a 

RE 

M C 

IR X „ Y 

TO X + 

■1, 

Y 

1 01 

6 NEXT s ' VI 

"AB 

20 s 

i END 





If the column number is odd, we use HCOLOR #7 white. If it’s even, 
we use #3 white. These two colors plot in either the left or right half 
of one of the 280 hi-res columns. Our example here cheats just a little 
by picking special coordinates for extra smoothness. 


SISK COMMAND EDITOR 
by Bert Kersey S' Jack Cassidy 

A classic Apple utility you will ENJOY! Rename 
commands: "Catalog” can be “Cat”, and so on. Save- 
protect your programs; An unauthorized copy 
attempt produces a “Not Copyable” message. List- 
protection too and one-key program selection 
from catalog. Catalog customizer: Change Disk 
Volume message to your title; Omit or alter file 
codes. Rewrite error messages: “Syntax Error" can 
be “Oops!!" or anything you want! Fascinating 
documentation included; Hours of good reading! 

Any or all of Dos Boss’s change features may be 
appended to your programs, so that anyone 
using your disks (booted or not) on any Apple 
will be formatting DOS the way you designed it. . 

□ Dos Boss on Disk (32K or 48K) 

□ Beagle Bros Apple Tip Book *8 

□ Peeks, Pokes 6* Pointers Chart 


( thinly-disguised advertisement ) 
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/ Your disks? Let’s see... They were 
I getting dusty, so I sent them out to the 
dry cleaners this morning. And I 
l couldn’t get Channel 8 on your cute 
little monitor, so I called the 
1 repairman. And... Oh! Remember all 
\ those messy WIRES that were sticking 
\ out of the back of your Apple?. 


AN 80-COLUMN LISTER 


10 

20 

30 

40 

50 


60 

70 

80 



L I ST 80" 
L 1 8180 


D* = CHR* (4) 

PRINT Dili! "OPEN 
PRINT D*i| "WRITE 
PRINT "PR#:L " 

PRINT "PRINT "s CHR* 

U"80N":| CHR* <34) 

— I ) 80N" „ 

PRINT "I TOT" (I can’t guarantee this program 

p p '|; |\| "|“ 1 1 D O 'dll i » will work on your printer unless 

PRINT 


" PR#0 " 

D*( "CLOSE 1 


<34)!| CHR* < 9 ) 
REM PRINT " <ctrl 


it’s an Epson MX-70, 80 or 100.) 


This program will create a text file called “LIST80”. Now any 
program in memory will be listed on your printout in eighty 
columns (or the number specified in Line 50), by typing 
EXEC LIST80 The same effect may be created by typing PR* 1 
(printer slot), and PRINT “(ctrl-I)80N”. This command turns off 
the video output, this removing unwanted carriage returns. I 
hope it works on your printer. 



BUGS 

I really hate bugs like this; I mean programming is hard enough 
without Applesoft’s casual attitude with numbers. What answer 
does your Apple give for this? 

PRINT I NT < 1 4 .. 4 * 100) 

1439, right? Heck, my eight-dollar pocket calculator does better 
than that.* A better way to perform the above calculation seems 
to be: 

N = 14.4 * 100 
PRINT I NT <N> 



It plays a lousy game of Raster Blaster though. 
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SCREEN FORMULA 

I’ve been trying to come up with this one for years (or at least 
since last week)— It’s the formula for converting HTAB and 
VTAB coordinates into the corresponding memory address. Let V 
equal the VTAB ( 1-24) and H equal the HTAB ( 1-40). To find 
the memory location, LOC, for the character in that screen 
position, use (are you ready?): 

LOO- 1 28 *V+H- < 984 * .1 IMT ( ( V :L > / 8 ) > +895 

Hey, it works! Now, to find what character is residing at VTAB V, 
HTAB H, you can peek at LOC and get its value, like so: 

PRINT PEEK < LOC) 

Or, you can poke any character you want onto the screen with: 
POKE LOC, i X (For character values, see Free Chart, page 14.) 


A PRINT-USING GOSUB 

Applesoft loves to abbreviate numbers, quite a pain in the chips 
when you’re working with dollars & cents. $3.20 will print as 
“S3- 2”. $300 will print as “S3”. And to make matters worse, 

S3. 2754 will print as “S3.2754”. “PRINT-USING” is a useful 
command found on other computers (I think; I just found out 
that there are other computers). This command lets you specify 
ahead of time the decimal format for your screen and printer 
printouts. Well, the best I can do for you is this little GOSUB that 
rounds numbers to the nearest cent. Position the cursor where 
you want it (for example VTAB 20: HTAB 19), set the variable 
AMT equal to the number you want printed, and GOSUB 9999. 
The number will be rounded to the nearest penny and printed 
for you in dollars and cents format. 

:l 0 AMT = 12 1! GOSUB 9999 
20 AMT ~ :l.2»3s GOSUB 9999 
30 AMT = 12,, 34s GOSUB 9999 
40 AMT 12.345s GOSUB 9999 
50 AMT 123„456s GOSUB 9999 
55 AMT = 1234.567s GOSUB 9999 

60 PRINT " 

70 AMT =•• SlJMs GOSUB 9999 
1 00 END 

9999 AMT = 100 * (AMT + .005) s AMT INI" 
(AMT) s REM ROUNDS. OFF 

10000 PRINT "V'ii SPC < (AMT < 100000) + 
(AMT < 10000) + (AMT < 1000) )s AMT / 
100S s REM ALIGNS 

10020 IF I NT (AMT - I NT (AMT / 100) # 
100) = 0 THEN PRINT "„00" ; s GOTO 
10040 

10030 IF I NT (AMT - I NT (AMT / 10) % 
10) = 0 THEN PRINT "0"; 

10040 AMT = AMT / 100s PRINT" s SUM =••• SUM 
+ AMTs RETURN 
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Apple Mechanic Instructions 

Welcome to APPLE MECHANIC! There is a large variety of programs 
on this disk, and as always, we hope you will find them both useful 
and entertaining. In using this disk, you will hopefully learn some 
new Apple programming techniques that will help you write better 
programs. With this in mind, all Apple Mechanic programs have 
remained listable and inspectable by normal methods. Let’s get on 
with the instructions— 

BACK UP YOUR DISK: 

Unlike most commercially-made disks, Apple Mechanic is not copy 
protected (just copyrighted ) and supports normal Apple DOS. Either 
make a back-up with one of the copy programs on your System 
Master disk or use the FID program from the same disk. And store the 
original in a safe place, away from prying magnetic fields. 

BOOTING: 

Booting will not be necessary if you have recently booted a normal- 
DOS disk and haven’t been doing any exotic fooling around. If a 
program on Apple Mechanic gives you a problem, try typing “FP” 
(return) and re-running the program, or go ahead and boot. For you 
newcomers out there, boot means turn your Apple off, insert your 
disk in Drive 1, close the door and turn the Apple on. Or leave the 
power on and type (usually) “PR#6” (return). When your drive’s red 
light goes off, you and your Apple are ready to go to work. 



A two-sided Key Chart has been included with your disk. FOLD IT 
LENGTHWISE with the appropriate side facing up, and insert it 
behind the top row of keys on your Apple. The Key Chart provides 
convenient labels for the “key” keys in several of the Apple Mechanic 
programs and puts the instructions in front of you where they will do 
the most good. Functions that are not specified on the Key Chart will 
appear on your monitor at the appropriate times. Fold and store your 
Key Chart with your disk. (Note: Leave your disk enfolded; it’ll work 
much better that way.) 
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The Catalog: 

APPLE MECHANIC 

A simple “Hello” program that runs when you boot the disk. 

SHAPE EDITOR (page 24) 

Allows you to create 12-shape shape tables for use in your programs. 

FONT EDITOR (page 31) 

Allows you to edit and create hi-res character sets or “shape-fonts” to 
be used with your programs, Xtyper or Hi-Writer. 

FONT SPLITTER (page 42) 

Allows you to reduce the number of characters in any shape-font. 

SHAPE ANALYZER (page 43) 

Lets you analyze shape tables and test each shape in various 
combinations of ROT, SCALE and HCOLOR. 

XTYPER (page 34) 

Lets you type shape-font characters directly onto a hi-res image or 
blank screen. The finished image may then be saved to disk. 

HI-WRITER (page 38) 

Allows program-control of shape -fonts. You add your own Applesoft 
commands to make “live” graphic presentations. 

HI-WRITER DEMO (page 38) 

List this to see how to make your own graphic presentations. 

SHAPE TABLE DEMO (page 27) 

A demonstration of shape table commands and loading procedures. 

GREETINGS 

Our “talking heads” say hello, using most of the graphics and sound 
features on Apple Mechanic (and then some). 

PAGE COPY (page 42) 

Three EXEC programs that move images between pages 1, 2 & 3. 

SONG SUBROUTINES (instructions on disk) 

A few little tunes and noises to liven up your programs. 

TEXT TRICKS (instructions on disk) 

Some text screen gimmicks; we couldn’t resist. 

TWO-LINERS 

Spectacular winning entries from Uncle Louie’s famous contest. 

SHAPES, @ IMAGES AND ]FONTS 

These are binary picture files and shape tables. Cursors and Demo 
Shapes are shape tables used by the editing and demo programs. Hi- 
res image file names are preceded by an File names that start 
with a “]” are shape-fonts. You may, of course, use your own system 
for naming your own files. 
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ERROR MESSAGES 

Most error messages will relate to disk 
errors occuring when you are loading files. 
“FILE NOT FOUND” means the file youJ& 
requested is not on the disk (or you JpjO 
spelled its name wrong) or you are 
using a disk that does not have the 
Cursors file on it. Other error ' / - 

messages will be referenced by /'.,«/ ^ 

number. See your Beagle Bros .y 

Peeks & Pokes Chart or Applesoft y pm 
Manual for ONERR error message/ 
codes. If you suspect you have / gffa 
made an error, remove the j 

ONERR statement from the C 

beginning of the program you \ 
are working with. Then you can \ 
list the offensive line and get a clue\ ’ It’sS 
regarding what’s happening. V A ^ 


Shape Tables are excellent hi-res animation tools. Each “table” is 
simply a series of hi-res drawings stored in memory in the form of 
plotting and non-plotting vectors. Shapes in each shape table may be 
called to the screen by Applesoft’s DRAW and XDRAW commands. 
While being rather abstract in concept, shape tables are relatively 
easy to use. Difficulty often comes in writing shape tables. One look 
at your Applesoft Manual will tell you why. Apple Mechanic has two 
programs that make writing shape tables a snap. To learn more about 
shape tables, their usage and structure, read How to Use Shape Tables 
starting on page 27. 

TWO SHAPE EDITORS 

Two different shape-writing programs are on the Apple Mechanic 
disk. Shape Editor lets you create and store up to 1 2 shapes at a 
time, each one up to 48 x 63 plots in size. These shapes can be 
utilized by your own Applesoft programs. Font Editor lets you 
make hi-res characters or pictures that can be utilized by the Xtyper 
and Hi-Writer programs (both on this disk), as well as your own 
programs. 
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THE SHAPE TABLE KEY CHART 

Use the Shape Editor side of the Key Chart that came with your Apple 
Mechanic disk. FOLD ITUind insert it behind the top row of keys on 



(') [2) (3) (4] (5) (6) (7) (8) I (9) I (D) I (:) (-) (Reset) 


your Apple. The 1-6 keys apply to the Shape Editor and Font Editor 
programs. The 3 through hyphen keys are for analyzing individual 
shapes with the Shape Analyzer program. Several Key Chart options 
are common to all three programs: 

(2) SAVE EXISTING SHAPES 

(Note: SAVE is not available from the Shape Analyzer program. ) 

After you have created one or more shapes with Shape Editor or Font 
Editor, your shapes are in your Apple’s memory, but not on disk. To 
save your shapes onto disk, press the 2 key. You will be asked for a 
title for the shapes you are saving. Any legal file name is o.k., but it 
helps to add a descriptive word like “FONT” or “SHAPES” to each 
name to keep them straight. You can always rename files later. 

You will recognize shape tables or shape-fonts in your catalog 
mainly by the title you have given them. There will also be a “B” for 
Binary to the left of the sector number. You cannot BRUN these files, 
only BLOAD them and then use them from your own Applesoft 
programs or Xtyper or Hi Writer. 

If you find yourself accidentally in the Save Mode, hit the 
RETURN key (with no file name) to escape, or enter one of the Key 
Chart keys (and return). 

(3) LOAD NEW SHAPES 

Select 3 to load a new shape table for editing or analyzing. The Shape 
Analyzer program can handle any Apple shape table, but Font Editor 
and Shape Editor are very specialized. Thus, thi s warning: 

LOAD ONLY SHAPE TABLES MADE WITH THE EDITING 
PROGRAM YOU ARE USING. OTHERS WILL EITHER NOT 
LOAD OR NOT BE EDITABLE. 


(4) CATALOG THE DISK 

Back to the Key Chart— A 4 keypress lets you catalog the disk drive 
most recently specified; handy if you want to inspect your file names. 
You will be temporarily switched to all-text mode for the catalog. 
Hitting any key will then return you to hi-res plus text. 

(5) DRIVE/ SLOT CHANGE 

Seleting 5 lets you change the drive that will next be accessed by the 
program. Hitting RETURN defaults to the slot or drive value printed 
on the screen. Do not select a drive or slot that is not connected or 
the program will hang. 
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The SHAPE EDITOR Program 

This program lets you draw hi-res shapes by plotting them on the 
screen from the keyboard. It will then temporarily store the drawings 
in your Apple’s memory. When finished, you can save the drawings to 
disk in the form of a 1 2 shape (maximum) shape table for use in your 
Applesoft: programs. 

ONLY SHAPE TABLES MADE WITH THIS PROGRAM CAN 
BE EDITED WITH THIS PROGRAM. OTHERS M4YLOAD, 
BUT WILL NOT BE COMPATIBLE OR EDITABLE. 

To begin, insert the Apple Mechanic disk in your drive, and type “RUN 
SHAPE EDITOR”. When the program title is on the screen, six Key 
Chart keys control the Editor: 

1: EDIT a Shape 
2: SAVE Existing Shapes* 

3: LOAD New Shapes* 

4: CATALOG Disk* 

5: DRTVE/SLOT Change* 

6: DISPLAY Shapes 
'Covered under Key Chart, page 23 

You can usually “escape” to this part of the program by pressing the 
ESC key. When the program title is visible, you will see all 1 2 shapes 
currently in memory on the hi-res screen. If you are just starting, you 
will quite likely see the Editor’s default shapes, 1 2 white dots. Each 
dot is actually a hi-res shape in a 12-shape shape table. Load a set of 
shapes, like Demo Shapes, as a test (press 3, enter the name and wait 
while they load). You can replace each of the shapes you see with any 
drawing you want to create. 

Due to the variety of shapes you might produce, the 1 2-shape 
menu display could get a bit messy. Unusually large shapes could 
overlap or “wrap around” and partially print on the opposite side of 
the screen. No problem, however; this display is for reference only. 
You can see each shape alone by selecting Key Chart Option 6 ( more 
later) or by hitting N now to temporarily remove the text from the 
lower screen. Any key restores the text. 

(1) EDIT A SHAPE 

First, you need to choose which shape, 1-12, you are going to create. 
Actually you are going to re-draw and replace the shape you select. 
After pressing 1, you will see a shape on the screen, perhaps a dot if 
you are just starting, both DRAWN and XDRAWN (these two often 
look the same), with its shape number below. To advance to the next 
or previous shape, use the Right or Left Arrow key. Shape # 1 will 
follow #12 and vice versa. Another way to select a shape is to type the 
shape number you want, 1-9- Shapes 10, 1 1 and 12 are selected for 
viewing/editing with the Zero, Colon and Hyphen keys. You can 
animate between any shapes you choose using these twelve top-row 
keys (for example, type 4-2-4-2-4-2-). With the shape or shape 
number that you want to redraw on the screen, press RETURN. 
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Now you see two rectangles on the screen and flashing cursor 
made of dots. Notice that you can move the cursor left & right with 
the Arrow keys and up & down with the A and Z keys. You will be 
creating a shape in a magnified version (3 times actual size) by 
moving this cursor inside the larger rectangle. Simultaneously, you 
will see the shape plotted in actual size in the smaller rectangle. Move 
the cursor, if necessary, to its starting point (allowing room for your 
drawing) and hit RETURN. 

Now you have a solid flashing cursor (with a dot in the middle 
representing your drawing’s start point). A solid flashing cursor 
means that the next vector (dot) will PLOT AND MOVE (up, 
down, left or right). A dotted flashing cursor means the next vector 
will MOVE ONLY AND NOT PLOT. To switch between plot and 
move, press the SPACE BAR. Notice the word “PLOT” on the screen 
changes to “MOVE” and back. Draw your shape with the A, Z and 
Arrow keys. Your drawing will consist of a number of “vectors” 
(visible or invisible lines one-plot long). All vectors, plotted or not, 
must move. 

Shape Editor limits shapes to the size of the plotting grid, 48 x 63 
hi-res plots, and to 999 separate vectors. You will encounter some 
appropriate flashing and/or beeping if you approach these limits. The 
999 is determined by the variable MAX near the beginning of the 
program listing. Change it if you want. 

(X) ERASE 

To erase parts of shapes as they are being drawn, use X as a “back- 
space” key. You cannot erase pre-plot dots with this feature. 

(P) PRE-PLOT 

ft is best to plot each shape as efficiently as possible* using the fewest 
number of vectors. If you want, you can preplot your drawing on the 
screen without regard to efficiency and then trace over the sketch for 
your final drawing. After you have selected the shape to be drawn and 
positioned the cursor, and before you hit RETURN, select P. Now 
you can draw on the screen with a series of dots. The actual-size 
drawing in the smaller rectangle will appear as it normally would. To 
erase a dot, you need to plot on top of it (you can leave extra dots on 
the screen; they will have no effect on your final drawing). When 
finished pre-plotting, hit RETURN. The actual size sketch will disap- 
pear but the 3X version will remain. Now you can trace the dots to 
create your shape. 

*One more note on efficiency: Don’t give it too much thought. An “inefficiently” 
drawn shape will take up some extra memory' all right and take your Apple maybe a 
micro-second longer to draw. You can probably afford both. 
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(I) IMPRINT 

After you have selected the shape you want to edit, you may imprint 
any existing shape on the drawing screen by hitting I, selecting the 
shape to be imprinted (with the Arrow keys or 1-9, zero, colon or 
hyphen), and hitting RETURN. Imprinting is done if you want to 
create a shape similar to another (for animation, perhaps) by tracing 
over the imprint. The imprint is repositionable using the A, Z and 
Arrow keys. Repositioning is done to center the imprint in the 
rectangles or to align the imprint with your in-progress drawing. 

To keep the imprinted image on the screen and start or continue 
plotting your shape, hit RETURN. To erase the imprint, hit ESC. The 
imprint will be erased from the small ( actual size ) rectangle, regard- 
less of which option you select. 

The imprint in the larger rectangle is XDRAWN with SCALE=3. 
You will notice that enlarged shapes seem to be a bit inaccurate. Ends 
of lines go too far or are bent at their ends, and dots appear as short 
lines. This is just the nature of scaled-up shapes. With a little practice, 
you’ll get used to them and be able to use them as models for 
drawing. If the drawing you are creating is already in progress on the 
screen, you will see the imprint in reverse where it crosses your 
picture. In the actual-size drawing, the imprint and your drawing 
could actually cancel each other out temporarily. 

PLOTTING TIPS 


Lines that cross each other can be confusing at first. A plotting vector 
(solid cursor) will normally plot. But a vector that plots over an 
already-plotted point (as in the center of a figure-8) will unplot the 


2 PLOTS = NO PLOT 



point. You may ignore this problem if you are going to mainly DRAW 
your shapes from your programs, but if you are going to XDRAW or 
animate them, the flaw will show. To move the plotting cursor 
without changing the drawing under it, use the SPACE BAR to select 
the dotted (non-plotting) cursor. And remember, you can always 
correct mistakes by backing up with the X key. 

Positioning the cursor before plotting is usually necessary only 
on large shapes that might approach the limits of the drawing rectan- 
gle. If you are planning a shape that is going to go off to the right, for 
example, you should position the cursor near the left edge of the 
rectangle before plotting, giving you room to draw. The cursor 
starting position will remain the same until you change it. 

The last point of a shape is where the next shape will start if your 
program uses a command like “XDRAW 1: XDRAW 2”. In this exam- 
ple, Shape #2 will be drawn on the screen starting where Shape #\ 
stopped. If you will always be using plotting coordinates in your 
programs, as in “XDRAW 1 AT 10,10: XDRAW 2 AT 10,99”, you don’t 
need to be concerned where your shapes end. 
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You may use less than 12 shapes by simply ignoring the ones 
you don’t want. The default dot shapes take up only two bytes apiece. 

To create shape tables with more than 12 shapes, use the 
Font Editor program, which allows 95 shapes. 

(RETURN) FINISHING A SHAPE 

Usually, you won’t care where your shape ends. Just draw until it 
looks the way you want (especially in the actual-size version), and hit 
RETURN. When asked, “READY TO WRITE SHAPE INTO TABLE?”, 
answer Y. If you had answered N, you would have been allowed to 
continue drawing. If you want to start over, answer IV and then ESC. 

Now your drawing will be “written” into the shape table. 'I Tie 
more complex your shape, the more time this will take. The main 
title will reappear when writing is complete. Create as many shapes 
as you like, from 1 to 12. Just select Option 1, and select the shape 
you want to redraw next. 

(6) DISPLAY EACH SHAPE 

Selecting Key Chart Option 6 when the main title is visible will let 
you view each shape individually, DRAWN and XDRAWN. Use the 
Arrow keys to view different shapes, and RETURN to see all twelve. 

How to Use Shape Tables 

This section covers the basics of using shape tables. The commands 
are simple and the results are amazing! List the Shape Table Demo to 
learn much much more. And above all, experiment! Get in there 
and make some mistakes (heck, I can’t teach you everything). 

LOADING YOUR SHAPE TABLE 

First, set ROT & SCALE to their minimum values, 0 and 1. Then 
decide where in your Apple’s memory to load your shape table. For 
now, let’s pick location 25,000; it’s a nice round number and out of 
the way of other goings-on. Set a variable in your program (for 
example, SH) equal to 25000 and load your shape table like so— 

10 ROT= 0: SCALE= 1 

20 SH = 25000: D* = CHR* <4> 

30 PR I NT D* ; " BLOAD SHAPES , A " ; SH 

A shape table is a Binary file, so it must be BLOADed (but never 
BRUN). To play it safe, always tell the shape table where to load by 
specifying the location as part of the BLOAD command. In the 
example above, you could have used “,A25000” for the same 
results. While programming, you won’t want to wait while your 
shapes load every time you run the program, so (after you have run it 
once) put a temporary “REM” in front of your BLOAD statement. 

On page 45, there is a discussion regarding More Room for 
Hi-Res Programs. If you load your Applesoft program, as suggested 
there, at location 24576 (S6000), you will need to load your shape 
table elsewhere or one will erase the other. Location 2048 (S800), 
the normal program location, would be appropriate and allow you 
the most space. If you like round numbers, set SH equal to 3000. 
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SETTING THE SHAPE TABLE POINTER 

Now you need to to tell your Apple where your shape table is 
(location 25,000) in memory. In your program, do two pokes— 

40 POKE 232, SH - I NT (SH / 256) * 256 

50 POKE 233, I NT (SH / 256) 

Assuming you have set SH equal to 25000, these two pokes put that 
number into the Shape Table Pointer at memory locations 232 & 
233. If you run the above program now, that pointer will be set. If you 
forget to do the two pokes in your next shape table program, the 
program might work fine, because the pointer stays set, even surviv- 
ing the often fatal “NEW” and “FP” commands. But tomorrow your 
Apple won’t know where your shape table is stored. When you turn 
off your Apple or re-boot, the Shape Table pointer will “point” to the 
wrong place. The DRAW command will probably produce random 
scribblings, much as if you hadn’t even loaded your shape table. So, 
always include the two pokes at the beginning of your shape table 
programs. 

USING MORE THAN ONE SHAPE TABLE 

To alternate between shape tables, simply re-poke a new location 
into the shape table pointer at 232-233 each time you change. 

HCOLOR 

To DRAW a shape, you need to specify a color by setting HCOLOR 
equal to a number, 0-7. If you don’t, your shape might be drawn in 
HCOLOR 0 (black) and you won’t see it. Here are Apple’s hi-res 
colors.— 

HCOLOR=0 or 4: Black 
HCOLOR=l: Green 
HCOLOR=2: Violet 
HCOLOR=3 or 7: White 
HCOLOR=5: Orange 
HCOLOR=6: Blue 

DRAW AND XDRAW 

DRAW means just that, draw a shape from a shape table. Use the 
command like this— 

99 DRAW 3 AT 100,90: REM (AT X,Y> 

The first number after DRAW is the number, 1-255, of the shape to be 
drawn. The next two numbers are the horizontal and vertical hi-res 
coordinates of the starting point of the shape. If you get an ?ILLEGAL 
QUANTITY error, you have either attempted to draw outside of the 
screen’s limits or you have specified a shape number larger than the 
number of shapes available. 

The XDRAW command works like DRAW, but ignores HCOL- 
OR and plots each dot of your shape in the opposite color of the dot 
that is being plotted over. XDRAW is handy for animation because 
you can make a shape travel over and be seen against multi-colored 
backgrounds. 
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BLACK (0/4) is opposite WHITE (3/7) 

GREEN (1) is opposite VIOLET (2) 

ORANGE (5) is opposite BLUE (6) 

HI RES COORDINATES 

To tell a shape where to appear, specify the coordinates (horizontal, 
vertical) of the shape’s starting point. Don’t specify a start location 
outside of the screen limits, or your program will crash. Here are the 
hi-res limits for Apple hi-res— 

Horizontal: O to 279 

Vertical: O to 191 

Vertical with 4 text lines: 0 to 159 

DRAWING WITHOUT COORDINATES: After your first shape is 
drawn, you don’t need to specify coordinates for the next DRAW or 
XDRAW, but you probably will want to. Each successive shape drawn 
without coordinates (as in “XDRAW 3: XDRAW 1: XDRAW 9”) will 
begin at the point where the previous shape stopped. Eventually, 
using consecutive commands like this, shapes will usually “wrap 
around” and begin plotting on the opposite side of the screen. 

SCALE 

You can enlarge a shape by setting SCALE equal to a number, 2-255 or 
zero. A SCALE of zero is equivalent to a SCALE of 256. Scaled-up 
shapes are of limited use because the plotting vectors are lengthened 
only and spread apart as they are enlarged. They often end strangely- 
bent at right angles, depending on how the shape was created. In 
short, scaled-up shapes usually just don’t look right. 

ROT 

You can rotate a shape by setting ROT before you draw— 

ROT O: Normal 

ROT=l6: Rotated 90° Clockwise 
ROT=32: Rotated 180°(upside down) 

ROT=48: Rotated 270°Clockwise 

ROT values between the above only apply when SCALE is set larger 
than minimum ( 1 ). ROT values greater than 64 simply repeat the 
cycle until ROT=255. 

MOVING A SHAPE 

There is more than one way to move a shape. Basically you have to 
draw the shape, erase it, and redraw it in a new position. This 
XDRAW example moves a shape across the screen— 

100 FOR X = 0 TO 279 

110 XDRAW 5 AT X, 100s REM DRAW SHAPE 
115 XDRAW 5 AT X,100; REM ERASE SHAPE 
120 NEXT X 

With DRAW, you erase the shape by re-DRAWing it in the back- 
ground color— 
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100 FOR X = 0 TO 279 

110 HCOLOR= 3s DRAW 5 AT X,100: REM DRAW 
115 HCOLOR= 0: DRAW 5 AT X, 100: REM ERASE 
120 NEXT X 

Experiment with adding different delay loops between drawing and 
erasing. For example add these lines— 



OTHER HI RES MANIPULATIONS 


HGR— Clears Page 1 to black & reveals it for drawing. 

HGR2— Clears Page 2 to black & reveals it for drawing 

HCOLOR=X: HPLOT 0,0: 

CALL 62454— Clears hi res in HCOLOR X 

The following “switches” do not clear the screen, but reveal what- 
ever is currently on the page 1 or 2 text, hi res or lo res screens: 
POKE 49232,0— View graphics screen" (hi- or lo-res) 

POKE 49233,0- View text screen 
POKE 49234,0— View full graphics screen (hi- or lo-res) 
POKE 49235,0— View graphics plus 4 text lines" (VTAB 21-24) 
POKE 49236,0— View Page 1* (hi-res, lo-res or text) 

POKE 49237,0— View Page 2 
POKE 49238,0- View lo res 
POKE 49239,0- View hi-res* 

'Automatically set by HGR 

POKE 230,32— Allows drawing on page 1 
POKE 230,64— Allows drawing on page 2 
POKE 230,96— Allows drawing on page 3 (not directly viewable) 

The three pokes above disregard which page is currently being viewed. Poking other 
numbers into location 230 produce unpredictable, often disastrous results. Try POKE 
230,48 and do some hplotting, for example. Be prepared to lose your program and 
re-boot if you try other numbers. 

PRINT PEEK(228) — Prints HCOLOR code (see Peeks & Pokes ) 
PRINT PEEK(231)— Prints current SCALE value 
PRINT PEEK(249)— Prints current ROT value 
CALL 62923— Stores last plotted coordinates at locations 224-226 
PEEK(226)— VERTICAL position during last CALL 62923 
PEEK(224)+PEEK(225)*256— Horizontal during CALL 62923 
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The FONT EDITOR Program 

This program is similar in concept to Shape Editor, but specialized to 
create shape table character sets or fonts of type. Each “shape-font” 
consists of 95 hi-res characters that can be printed onto the screen by 
adding Applesoft commands to the HI-WRITER program. Or you can 
type the characters directly onto a hi-res picture or blank screen by 
running the XTYPER program. Shape-fonts may be redesigned or 
used as-is without editing. Any character may be redrawn as you like 
(as pictures, symbols or whatever), as long as it fits within the 
maximum dimensions specified by the Editor. 


ONLY SHAPE-FONTS MADE WITH THIS PROGRAM CAN 
BE EDITED WITH THIS PROGRAM. OTHERS MFLOAD 
BUT WILL NOT BE COMPATIBLE OR EDITABLE. 


SHAPE FONTS vs. OTHER FONTS: 

In your encounters with other disks, you will undoubtedly come 
across other hi-res type fonts. Apple Mechanic’s shape table type is 
unique, however, and incompatible with most other Apple type. That 
is, you can’t use the same programs to display or edit shape-fonts as 
you do to display or edit other kinds of hi-res type. 

ADVANTAGES: Shape-fonts have the distinct advantage of being 
proportionally spaced. An “I”, for example, doesn’t need to occupy 
the same screen space as a “W”. Word-spacing and the distance 
between lines of type is adjustable. And type doesn’t have to be any 
certain height; it can range between 3 and 16 dots high, exactly as 
you designed it, and be positioned anywhere on the hi-res screen 
without regard to vtabs or htabs. Shape-font type can be XDRAWN 
too, so that each character is automatically printed in the opposite of 
the background color. And shape-font characters are fast— Font 
Editor creates characters that will be drawn from upper-left to 
lower-right, ending adjacent to the left edge of the next character to 
be printed. Therefore coordinates do not need to be specified when 
displaying each character-shape. 

DISADVANTAGES: Shape fonts take up more memory and disk 
space than other hi-res fonts you may have seen, usually around 18 
sectors for large-height fonts and 7 for small-height fonts (full 95- 
character fonts). You will find fonts on Apple Computer’s DOS Tool 
Kit, for example, that only occupy 5 sectors. The difference is in the 
flexibility and attractiveness of the typefaces and resulting screen 
presentations. 

LARGE FONTS vs. SMALL FONTS 

All shape-fonts are classified as Large or Small. Small fonts correspond 
approximately in height to Apple’s normal text characters. All font 
names on the Apple Mechanic disk are preceded by a “]”. All are 
large-height fonts, except those with the word “small” in their 
names. Another way to recognize size is by catalog sector size — Full 
96-character large fonts tend to be 16-20 sectors, and small 
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fonts 6-10 sectors. Large-font characters maybe up to 14 x 16 hi-res 
plots in size. Small characters are limited to 7 x 8. The difference is 
the alignment of characters when printed with Xtyper and Hi- Writer. 
You may, of course, create small characters in a large font, but not 
vice versa. If you know how shape tables are constructed, you might 
like to know that the second byte is set to 1 for small fonts and 2 for 
large fonts. 

RUNNING THE PROGRAM 

To begin, insert the same Key Chart you used for Shape Editor. Boot 
the disk, if necessary, and “RUN FONT EDITOR”. When the program 
title is on the screen, six keys control the program: 

1: EDIT a Character 
2: SAVE Existing Shapes* 

3: LOAD New Shapes* 

4: CATALOG Disk* 

5: DRIVE/SLOT Change* 

6: DISPLAY (Type) Shapes 
‘Covered under Key Chart, page 23 

You can usually escape to this part of the program by pressing the 
ESC key. See the Shape Table Key Chart notes on page 23 for details 
on options 2-5. 

When you run the program, you will see the plotting grid and 
the 95 characters currently in memory. If you are just starting, you 
might see the Editor’s default “characters”, 95 white dots. Each dot is 
actually a hi-res shape in a 100-shape shape table. If you wanted a font 
with just a few characters (only numbers, for example), you could 
start with this dot “font” and add only your special characters, or you 
can use the Font Splitter program (page 42). More likely, you will 
want to load one of the complete fonts on the disk (using Key Chart 
Option 3) and change a few characters. 

THE PLOTTING GRID 

After you have loaded a font with Key Chart Option 3, the character 
set will be displayed. To the left you will see a rectangular plotting 
grid for drawing characters at 10 times actual size. The grid’s size 
depends on whether a large (14 x l6)or small (7x8) font was 
most-recently loaded. The dotted lines on the grid have no function 
other than to serve as visual guides for lower case, descenders and so 
on. Their use is up to you. 

(1) EDITING CHARACTERS 

After you have loaded a font (Key Chart Option 3), select the 
character to be edited by pressing the 1 key. A striped flashing cursor 
will appear on one of the characters. To move the cursor to the 
character you want to edit or replace, use the Arrows and A & Z 
keys. Below the character set, you will see the ASCII value of the key 
that will eventually type the character (for example, KEY “A”, ASCII 
65). The SPACE character, ASCII 32, is the only one not accessible 
from the Editor. Hit RETURN when the cursor is on the character you 
want to edit. 
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Now you have three options: 

(I) GRID IMPRINT: Prints the selected character as a 1 Ox blow- 
up on the grid; good for making minor changes since most of the 
character will already be drawn for you. 

(E) ERASE/REDRAW: Temporarily erases the character from the 
screen so you can completely redraw it. 

(5) SHADOW IMPRINT: Prints a “shadow” of a character on the 
lOx grid as a reference. The shadow is for reference or tracing 
purposes only and does not affect the final shape. 

Select I, E or S, and stand by. You will now see a round dot 
cursor, either outlined or solid, flashing in the upper-left of the grid. 
The A, Z and Arrow keys will move the cursor within the confines of 
the grid. Pressing the Space Bar changes the cursor from Solid to 
Outlined and back, representing Plot and No-Plot. Play around to see 
how it works. Notice that the actual-size character in the font to the 
right changes as you plot on the grid. You won’t have the problem of 
dots unplotting when you plot over them (as in Shape Editor ), 
because you are not actually creating the shape yet, only sketching it. 
The actual shape vectors will be created by the Editor, so there is no 
need to plan an “efficient” plotting path. Continue plotting and 
unplotting until the character looks the way you want it. 

The shape you have plotted is only temporary; it isn’t in the 
Apple’s memory yet, only on the screen. To place it in memory (into a 
shape table), hit RETURN, and sit back. A cursor will scan the grid 
and “read” the shape. Now you are asked to “SELECT CHARACTER 
TO REPLACE”. The character you just drew can now replace any one 
of the 95 characters on the screen. Usually you will want to replace 
the same character you first selected, so just hit RETURN to insert the 
new shape data into memory. 

If you start with a dot (blank) font, and if you draw a character 
other than the first character (ASCII 33 ), and z/you quit the program 
and re-run it, you will see your shape repeated from the first shape 
position up to the point where you inserted your new shape. Well, 
what you see is what you get. TTiat is one of the quirks of working 
with the blank dot font, since the “font” actually consists of just one 
dot referenced by all 95 characters’ pointers. To play it safe, when 
starting with the dot font, edit the lowest numbered character availa- 
ble first. 

(6) DISPLAY (TYPE) SHAPES 

Font Editor features a one-line character typer for testing the appear- 
ance of your characters adjacent to other characters. Select 6 from 
the main menu and type as you normally would. The ESC key toggles 
between upper & lower case. RETURN or typing near the right 
margin will return you to the main menu. Because of program space 
limitations, the backspace key does not function in this mode. There 
is no way to move the cursor without typing, or to save an image 
either; this mode is for test purposes only. To type and save hi-res 
images, use the A 'typer or Hi- Writer programs. 
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The XTYPER Program 

This program may be used to type onto the Page One hi-res screen 
using up to three shape -fonts at a time. You may want, for instance, to 
label a diagram or graph that you have plotted with another program. 
After you have added type to your picture (or to a blank screen), you 
can save the entire image to disk. To start, type “RUN XTYPER” and 
be sure your disk has at least one large or small shape -font on it 
including every font you intend to use. 

THE MAIN MENU 

Running Xtyper or selecting ctrl-R while typing displays the main 
menu and lets you load fonts from the disk, clear the hi-res screen, 
load & save hi-res images, and quit the program. Exit the menu and 
begin typing by pressing RETURN. 

(1, 2 & 3) LOADING FONTS 

You may load up to three large or small shape-fonts into memory in 
any order you wish. Select 1 , 2 or 3 from the menu and enter the 
name of the font. The font will then be loaded into memory showing 
you its start location after the font name (for example, “BLOAD 
FONTNAME, A 18880”). You don’t need to be concerned with this 
number. You may replace any font any time you wish from the main 
menu. If you re-load Font 1 or Font 2, any higher-numbered font in 
memory will automatically be reloaded at a new location. Therefore 
all three of the fonts you are using need to be on the same disk. If you 
attempt to load Font 2 or Font 3 when there is a lower number 
unused, your font number will be changed to the lowest unused 
number. 

(X) CLEAR HI RES SCREEN 

Always select X to clear the screen if you have no image loaded on 
hi-res Page One. Otherwise you could encounter a “snowy” back- 
ground (an uncleared screen) on which to type. If this happens, type 
ctrl-R, X, Y and RETURN (just follow the screen prompts). 

(L) LOAD HI RES PICTURE 

Select L to load a hi-res picture from your disk. This could be a chart, 
a graph, a picture of your dog, or any hi-res image to which you want 
to add hi-res type. 

(S) SAVE EXISTING PICTURE 

After you have typed on a cleared screen or on your picture, select S 
from the main menu to save the entire image on disk. If you don’t 
want a previous picture to be erased, don’t use the same name when 
re-saving it. You will recognize a picture file in your catalog with its 
name preceded by a “B” for Binary and (usually) an “034” for 34 
sectors. It helps if you name picture files with the word “picture” or 
similar identification in the title. We have used an before Apple 

Mechanic picture file names. 

Warning: Be sure your shape -font files are locked. If you acciden- 
tally enter a font name when saving a hi-res image, the font will be 
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erased from the disk if the font is not locked! You may lock and 
unlock files by first selecting C to catalog. 

Note: To see any hi res picture on Page One when you are not running aprogram, type 
HGR( return) and BLOAD PICTURE, A$2000 (return), where “PICTURE” is the 
name of the image you want to see. 

(C) CATALOG DISK (and Lock/Unlock) 

Select C to catalog from the main menu. You will need to do this to 
check the names of fonts or hi-res pictures. You will be given the 
option of locking and unlocking files after the catalog. 

(Q) QUIT PROGRAM 

Selecting Q from the main menu lets you quit Xtyper. When you quit, 
you will see the message “GOTO 2000 TO CONTINUE”. Ifyou were 
to type “RUN” instead of “GOTO 2000”, you would need to reload 
your fonts into memory. 

(RETURN) BEGIN TYPING 

Hit RETURN to begin or continue typing on the hi-res screen. You 
must have loaded at least one shape font to type. 


TYPING WITH XTYPER 

After you have loaded at least one font from the main menu and hit 
RETURN, you will see a flashing rectangular cursor on the screen that 
corresponds to the approximate height of the current font and the 
current case, upper or lower. Now you can type on the screen or use 
one of the control commands below. You will get best results if you 
type in white (any size) or in color (large fonts only) on the BLACK 
background areas of the screen (see Color Change below). 

The following commands appear on your Key Chart: 

(RETURN) CARRIAGE RETURN 

Hitting RETURN while typing puts the cursor at the left margin on 
the next line down. To change the vertical distance the cursor will 
move, see Leading Notes below. If you continue typing to the right 
margin, your words will “wrap around” without dropping to the next 
line. With Xtyper you must hit RETURN just as you would on a 
typewriter. 

(ESC) UPPER & LOWER CASE 

The ESC key will toggle between upper & lower case. The cursor 
height will change accordingly. Since shape-fonts can vary in charac- 
ter height, the height of the cursor might not exactly match. 

(ctrl-P, ctrlT & ctrl-Q) NON-KEY CHARACTERS 

APPLE II AND 11+ ONLY: Three characters on ancient Apples have no 
corresponding keys. With Xtyper, ctrl-P types a left-square bracket' 
(the right - square bracket’ is typed with shift-M as usual). Ctrl-T 
types the underscore', and ctrl-Q types the backslash.' 

'Or the character programmed for that key. 
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MOVING THE CURSOR: 

Eight commands move the cursor on the screen without typing or 
erasing. You must hold the CTRL key down while you move the 
cursor or a letter will be typed. If you have a spare finger, you may also 
use the KEPT key for long distance moves. The Left & Right Arrows 
(ctrl optional) move the cursor left and right approximately one 
character. Move your fingers three keys to the left and use ctrl-K & 
ctrl-L to move the cursor left and right one plot. Ctrl-A & ctrl-Z 
move the cursor up and down approximately one type line. And one 
key to the right, use ctrl-S & ctrl-X to move the cursor up and down 
one plot. Due to the varying sizes of shape-font characters, the cursor 
height will not always exactly match the height of the characters 
being typed. The top of the caps cursor, however, will usually align 
with the top of the lettei' about to be typed or erased. 

ERASING: 

Proportional type has many advantages. One disadvantage is the 
difficulty of making corrections. Xtyper gives you several ways to 
erase (and typing a space over a character is not one of them). First, 
the top of the cursor must he aligned vertically with the top of a 
capital letter on the line of type on which you wish to make an 
erasure. Got it? Now, here are your options for erasing: 

(ctrl-B) BACKSPACE/ERASE: Place the left of your cursor at the 
right of the character you want erased. Now use ctrl-B as a back- 
space/erase key. A vertical black' line will be drawn at the left edge of 
the cursor, and the cursor will move one plot to the left. Use the 
REPT key if you want (press CTRL, B and REPT), and continue 
ctrl-B-ing until you are through erasing. 

(ctrl-E) CHARACTER ERASE: This method works only with 
white type on a black background— Align your cursor vertically as 
described above, and position its left edge so it touches any part of 
the character to be erased. Now type ctrl-E and your Apple will 
erase the character (in black). Stencil Font characters will often only 
be partially erased with ctrl-E due to their split design. 

(ctrl-W) WIPE OCT: Typing ctrl-W will erase an entire line of type 
in black' from the top of the caps cursor down. 

OVERTYPING: Another way to erase a character is to place the 
cursor over it, aligning the top and left edges, change the typing color 
(ctrl-O) to the color of the background, and type over the characters 
to be erased using the same characters and the same font. 

'Set Default Erase Color next page. 
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(ctrl-F) FONT CHANGE: 

Selecting ctrl-F while typing will allow you to select a new typing 
font. You may not, of course, select a font number that has not been 
loaded into memory. 

(ctrl-O) COLOR CHANGE: 

Selecting ctrl-O while typing will allow you to select a new typing 
color. Due to Apple’s hardware configuration, typing in colors other 
than white or black might present some surprises— Characters with 
thin verticals could look distorted, especially on a non-color moni- 
tor. Also, small characters are unreadable in colors other than black 
or white. And colored type or lines on a color background will tend 
to “vibrate” and produce “stair-stepped” edges. Apple’s hi-res hard- 
ware is really designed to support colors on a BLACK BACK- 
GROUND. Xtyper will not let you choose alternate color # 7 (white) 
or #A (black). 

(ctrl-G) GRID: 

Selecting ctrl-G while typing will display a 4x4 grid on your draw- 
ing. Hitting ctrl-G again will erase the grid. The purpose of the grid is 
to display the edges of the hi-res screen and to give some visual refer- 
ence for aligning and centering type. 

Warning: Don’t type over the grid if you are going to erase the grid. 
If you do, you will draw (XDRAW) lines through characters that have 
come into contact with it. 

(ctrl-R) RETURN TO MAIN MENU: 

Selecting ctrl-R while typing will display the main menu, so you can 
save or load a picture, load a new font, clear the screen, catalog the 
disk or quit the program. 

LEADING NOTES: 

Leading (pronounced "lecicting ”) is the vertical distance between 
lines of type. Xtyper normally puts two lines of leading between 
characters, large and small. If you type a lower case “g” at the left 
margin, hit RETURN, and type an upper case “E”, you will see a 
vertical gap of two plots between the characters. To change this 
default value of 2 to any other value, change the first non-REM 
program line in Xtyper. The variables LD(1), LD(2) and LD(3) 
represent the leading for the three fonts in memory. If you want, for 
example, four plots of leading when you hit RETURN with Font 2, 
make LD( 2 )=4. Note: Apple’s normal text uses a corresponding 
leading of zero , putting one vertical space between characters, how- 
ever, because the standard text font has no descenders (parts of 
letters like g, j, p, q and y that go below the base line). 

DEFAULT ERASE COLOR: 

Just in case you are doing a lot of typing on non-black backgrounds, 
you may change the second non-REM program line in Xtyper. The 
variable BG is the erase color used by ctrl-B and ctrl-W. 
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The HI-WRITER Program 

Hi-Writer is meant to be used as part of your Applesoft programs. Its 
function is to do “live” printing of shape -font characters on the hi-res 
screen. So, rather than typing directly in hi-res with Xtyper and saving 
each finished picture as a 34 sector binary file, you can instead add 
Applesoft instructions to Hi-Writer, after Line 500, that accomplish 
the same thing at no cost in disk space other than that occupied by 
your program. 

The HI-WRITER DEMO 

Uncle Louie always said, “A listing is worth a thousand words,” so 
RUN and then LIST the Hi-Writer Demo program starting at Line 500 
(type “LIST 500—”) and notice what makes it work. You probably 
won’t want to change the main subroutines ( Lines 90-500), but will 
just be adding your own program after Line 500. 

LOADING FONTS 

To begin programming, load the Hi-Writer program so you can 
customize it. LIST Lines 50-53 (type “LIST— 53”): 

50 FLAG = 0: REM <0=LOAD, l=DON' T) 

51 FT*<1> = " 3 BLOCK " 

52 FT$(2) = “3 SMALL STANDARD" 

53 FT* (3) = "3 APPLE" 

The variable FLAG in Line 50 tells the Apple whether or not to load 
the three fonts from Lines 51-53 into memory. If you have run the 
program recently, the fonts don’t need to be loaded again (waiting 
for them is a drag), so change Line 50 to FLAG=1 for programming 
and testing purposes. In the final version of your program, you will 
want the fonts to load when the program is run. You may even want 
to delete Line 50, leaving FLAG permanently set to zero. 

Hi-Writer lets you access up to three fonts at one time. To begin, 
let FLAG=0 and enter the names of your three fonts at Lines 51-53. If 
you want only one or two fonts to be used, enter a blank as the font 
name. For example, FT$(3)=“”. 

When your program is first run (with FLAG=0), the three fonts 
will be loaded and their locations will be stored in memory. When- 
ever you change one or more of the fonts in Lines 51, 52, or 53, be 
sure the value of FLAG is set back to zero in Line 50. Otherwise your 
new font(s) will not be loaded when the program is run the next 
time. Likewise, whenever you save your program, be sure Line 50 
reads FLAG=0 before you save it! Remember, you can always delete 
Line 50 and your fonts will be loaded every time the program is run. 


SHAPE TABLE FONTS ONLY! 

HI-WRITER WILL NOT FUNCTION WITH NON-SHAPE TABLE FONTS 
FROM OTHER PROGRAMS. DON’T EVEN THINKABOUT TRYING THEM. 
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PROGRAM VARIABLES 

Hi-Writer has certain variables built into Lines 90-500. Copy, format, 
color and screen position may be changed by setting values for these 
variables and then doing a GOSUB 100. 

These variables appear on your Key Chart for reference — 

A$: Words to be printed 
FT: Current Font Number (1-3) 

FT3$: Name of new Font 3 to be loaded during program* 
VT: VTAB ( 1-24) 

HT: HTAB (1-40) 

IN: INVERSE (l=Yes, 0=No)* 

CT: Auto-Center (l=Yes, 0=No)* 

HC: HCOLOR of Type (0-7) 

CL: HCOLOR for Clearing Screen (0-7) 

RT: ROT Value for Printing (0-3)* 

* Reset to Zero after each GOSUB 100 

A$: PRINTING WORDS 

To print on the screen, set a string A$ equal to the words you want 
printed and then GOSUB 100. For instance: 

520 A* = “HELLO" s GOSUB 100 

The above command will print “HELLO” somewhere on the screen 
in the font number (FT) and screen position (VT & HT) most 
recently specified. 

UPPER & LOWER CASE 

If you can enter lower case directly from the keyboard (you don’t 
need lower case hardware), skip this section. If you can’t, run out and 
buy a copy of the Program Line Editor disk. Direct upper & lower 
case keyboard entry is just one of its multitude of advantages. 

Next best, you can implement and GOSUB 90. Every time 
the routine at Line 90 encounters an it will change from upper 
to lower case or vice versa with each new line automatically revert- 
ing to upper case. For example: 

590 A* = "BSEAGLE 3B3ROS": GOSUB 90 

The above statement will cause Beagle Bros to be printed in upper 
& lower case. You can re -program to be any character you want 

(in case you want to actually print some @’s on the screen) by 
changing Line 54’s string UL$. For example, Line 55 could let 
A$=“/”. Then A$=“S/MITH /B/ROS” ( GOSUB 90 ) would print as 
Smith Bros. 

FT & FT3$: FONT SELECTION 

Set the variable FT equal to 1, 2 or 3 any time you want to change 
fonts. Asthetically, three fonts in one graphic presentation is maybe 
one too many, but you may replace Font 3 as many times as you wish 
from within your program by entering FT3$=“FONT NAME”: 
GOSUB lOO. There will be a pause while the new font is loaded 
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from disk. The only way to replace Fonts 1 & 2 is to change program 
Lines 5 1 & 52, reset FLAG in Line 50 to zero and re-run the program. 


HT & VT: SCREEN POSITION 




Each AS word-string will be written on the screen with its upper-left 
corner at the htab/vtab position designated by the variables HT and 
VT. Decimal fractions are allowed. 

HT (1-40) determines horizontal position. VT (1-24) deter- 
mines vertical position. If new HT and/or VT values are not specified, 
new words will continue where previous ones stopped. Words 
printing off the screen will wrap around to the other side. Large -font 
characters are about 2-VT><2-HT in size. Small characters about 1 x i . 

Due to proportional spacing, it is difficult to predict the length 
of a word, so a little trial and error might be in order to produce 
attractive screen layouts. Enter a test program line, see how it looks 
by running the program, and make your changes appropriately. If you 
put a temporary “GOTO xxx” at Line 510 (where xxx is the line 
number you are working on), you won’t have to wait through early 
parts of your program that are completed. 

CT & GOTO 400: CENTERING 

There are two ways to center type left & right on the screen with 
Hi-Writer — METHOD 1 is to set variable CT equal to 1 and the 
program will automatically center that line of copy. For example: 

550 CT=1 : VT=8. 2: A$="FRIED EGGS":GOSUB 100 


The latest HT value will be cancelled and there will be a half-second 
or so pause before the centered line is printed. If this pause is 
objectionable, use METHOD 2: There is an HTAB Centering Calcu- 
lator built into the program at Line 400 to be used only while 
programming (this routine was deleted from the Demo program). 
You must have run the main program at least once ( the fonts must be 
loaded into memory) for the HTAB calculator to work. To use it, 
specify the string AS that you want centered and its font. Then type 
“GOTO 400” 

A$= "PITTSBURGH" s FT=3: GOTO 400 

This is a direct keyboard command (no line number) that will 
return a value for HT of, perhaps, 14. This tells you to let HT=l4 in 
your program to center the copy “PITTSBURGH” typed in Font 3. 
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This routine will not work with lower case copy if you are unable to 
enter lower case directly from the keyboard. You might want to 
delete this routine, Lines 400-499, to save memory (see Out of 
Memory? below). 

IN: INVERSE 

Setting variable IN to 1 means the words that follow will be printed 
in inverse. IN is automatically reset to zero (meaning normal type) 
after each GOSUB 1 00, and will not function on rotated type. It is best 
to add at least one space both before and after a. word to be inversed, 
giving it a framed appearance. 

HC: HCOLOR 

The variable HC determines the HCOLOR of the words that follow. 
See the Color Change notes in the Xtyper instructions regarding 
conflict of interest between adjacent Apple colors. 

RT: ROTATION 

The variable RT will print your words rotated, thanks to Apple’s ROT 
function. A rotation of 1 will rotate type 90° clockwise. 3 will rotate 
it 90° counter-clockwise. And RT=2 will produce upside down type 
(just what you’ve always wanted! ). Rotation can be tricky, so plan 
ahead. Remember, HT and VT determine the upper-left start point of 
the first letter printed. Rotated type cannot be inversed. 

CL: CLEARING THE SCREEN 

Specifying a value 0-7 for the variable CL followed by a GOSUB 100 
will clear the screen in the corresponding HCOLOR. VT and HT will 
automatically be reset to 1. 

COMBINING TEXT & HI RES 

Apple’s good old text screen is always available for you to use with its 
HOME, PRINT, HTAB, VTAB, etc., commands— 

POKE TXT,0 in your program reveals the lower sixth of the text 
screen, VTAB 21-24, leaving the upper screen for your hi res Hi- 
Writer commands. 

POKE FULL,0 will switch you back to full hi res with the text 
screen “hidden” behind. 

TEXT will switch you entirely over to a text display without erasing 
your hi-res image. 

POKE HIRES, O will switch you back to hi res without clearing the 
screen (HGR would do that if you wanted). See the Hi-Writer demo 
for examples. 

OCT OF MEMORY? 

Your program, including Hi-Writer, must not be so large that it begins 
overwriting the hi-res screen. If it does, you will get uncalled-for little 
horizontal stripes on your hi-res image, really making a mess of 
things. If you want, just insert— 

5000 PRINT CHR* (4) ; “RUN NEXT PROGRAM" 

in your program and an entire new version of Hi- Writer wi 1 1 continue. 
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To save considerable program space, delete Lines 400-499 (center- 
calculator) and Lines 90-99 (lower case converter). 

NON-KEY CHARACTERS 

CHRS(95) is the underscore,* CHRS(92) is the backslash* and 
CHRS(91) is the left square bracket.* Remember, you can join 
strings, as in AS=“ABC”+CHRS(91 ). 

*or the font character programmed for that kev 

ERRORS 

There is an ONERR GOTO 450 in Line 55 that prints a code when an 
error is encountered (see your Peeks & Pokes Chart). Most errors, 
other than ?Syntax Errors will occur in line numbers in the 1 00’s, but 
the cause of the error will be elsewhere; you probably tried to print 
beyond thejimits of the screen or with an illegal color. Take note of 
the last hi-res character printed on the screen; it was just after 
that that your error occured. Type “TEXT” or hit RESET to find and 
correct the error. 

FONT SPLITTER 

Run Font Splitter to reduce the number of characters in a font. You 
may, for example, want to save disk or program space by removing all 
of the lower case characters from a font. Follow the screen pronints 
and let your Apple do the rest of the work 


PAGE COPY 

To clear the screen and load a hi-res picture onto PAGE 1: 

10 HGR: PRINT CHR$(4); “BLOAD PICTURE, A$2000” 

To clear the screen and load a hi-res picture onto PAGE 2: 

10 HGR2: PMNT CHR$(4); “BLOAD PICTURE, A$4000” 

These commands may be used in a program as shown above, or tvoed 
directly (with no line number). For example: n 

HGR (return) BLOAD PICTURE, A$2000 (return) 


With the Page Copy text files, you can move images already in 
memory from one page to another with these commands: 

EXEC PAGE COPY 1=2 (return) moves Page 2’s image to Page 1. 
EXEC PAGE COPY 2=1 (return) moves Page l’s image to Page 2. 
Either of these EXEC commands will work in a program, but only if it 
is the last command in that program. To move pictures from within a 
program, use Apple’s CALL -468 after poking locations 60-67: 

20 INPUT "MOVE IMAGE FROM PAGE:" ; A 
30 INPUT " MOVE IMAGE TO PAGE:";B 
40 POKE 60,0: POKE 61, A * 32 
50 POKE 62,0: POKE 63, A * 32 + 32 
60 POKE 64,0: POKE 65, B *32+32 
70 POKE 66,0: POKE 67, B * 32 
80 CALL - 468 

Note: CALL-468 will often leave blemishes on the “from” page 
especially if you are working with invisible “Page 3” (S6000-S7FFF).’ 
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SHAPE ANALYZER 

This program lets you load a shape table and analyze its individual 
shapes. You can see each shape with selected values for ROT, SCALE, 
shape-HCOLOR and background-HCOLOR. You can also DRAW, 
XDRAW and move shapes and see a text screen analysis of each 
shape’s vectors. 

RUNNING THE PROGRAM 

Insert the Apple Mechanic disk and type “RUN SHAPE ANALYZER” to 
start the program. You will be asked for the name of a shape table to 
be loaded. Any shape table qualifies, including shape -fonts, and shape 
tables made without using Shape Editor and Font Editor. /Vow-shape 
table binary files will also load, but their analysis will, of course, be 
meaningless. After the shape table loads, you will see Shape # 1 on the 
hi-res screen with its description below. ( Note: A shape-font’s Shape 
* 1 is a space, and won’t show. ) 

You can usually return to this part of the program by hitting ESC 
or RETURN. Using the Shape Editor side of your Key Chart, the 
following top row keys control Shape Analyzer: 

3: LOAD New Shapes* 

4: CATALOG Disk* 

5: DRIVE/ SLOT Change* 

6: DISPLAY Each Shape 
7: DRAW/XDRAW 
8: MOVE Shape 
9: ROT Test 
O: SCALE Test 
Colon: HCOLOR Test 
Hyphen: VECTOR Analysis 
•Covered under Key Chart, page 23 

ANALYSIS MODES 

The 8 through Hyphen keys enter you into a temporary “mode” 
where you may adjust the selected characteristic of the shape being 
displayed. The ESC key will exit you from that mode. RETURN will 
set the default value where appropriate. 

(6) DISPLAY SHAPES 

Pressing the 6 key or an Arrow key will let you select a new shape for 
hi-res display. The left & right Arrow keys decrease & increase the 
shape number by one. The A & Z keys decrease and increase the 
shape number by ten. The shape’s number will appear below the 
shape. 

(7) DRAW/XDRAW 

The 7 key will change the current display from DRAW to XDRAW 
and vice versa. The current status will be displayed in inverse on the 
top line of text below the shape. 

(8) MOVE SHAPE 

Selecting 8 will let you move the current shape on the screen. You 
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might want to do this if the shape drawn off the edge of the screen or 
behind the text at the bottom. The A, Z and Arrow keys move the 
shape 9 units vertically and horizontally. The parallel S, X, K and L 
keys do the same 1 unitax. a time. An odd move-number (9) is used in 
order to analyze shapes in HCOLORS 1, 2, 5 and 6. Each of these 
colors shows only in an odd OR even column, so a color shape will 
appear differently depending its horizontal position. 

(9) ROT TEST 

Selecting 9 lets you change the ROT value for the shape being 
displayed. The Arrow keys increase and decrease ROT by 16 (90°). 
A & Z do the same in units of 1. Hitting RETURN changes ROT to 
zero (normal). Note: Small changes in ROT do not necessarily have 
effect on shapes of small SCALE. See Using Shape Tables and your 
Applesoft Manual. 

(O) SCALE TEST 

Selecting Zero lets you change the value for SCALE with the Arrow 
keys. For an increase or decrease of 20, use the A & Z keys. Hitting 
RETURN resets SCALE to 1 (normal). Note: A SCALE of zero is 
equivalent to the largest possible SCALE, 256. 

( - ) HCOLOR TEST ( Colon key on Apple II and 11+) 

Hitting the Hyphen key will let you change the HCOLOR of the 
current shape. Since HCOLOR does not apply to the XDRAW com- 
mand, you will automatically be placed in DRAW mode. The Arrow 
keys increase and decrease the HCOLOR value (0-7). If you select B 
while in this mode, you may similarly change the background- 
HCOLOR. H again lets you change the shape-HCOLOR. RETURN will 
reset the HCOLOR for the shape to 3 and the background to 0. 

( 7 ) VECTOR ANALYSIS ( Hyphen key on Apple II and 11+) 
Hitting the Equal-sign key will let you analyze a shape vector-by- 
vector. You will first see the shape table’s memory location ( 16384 
or $4000 for this program) and the values for Byte #\ an d Byte #2. 
Byte #\ is the number of shapes permitted by the table. Byte #2 is 
normally wasted, but shapes made with our editing programs use it— 

1 symbolizes a small shape -font; 2 is a large shape-font; and 0 means a 
non-font. Enter a shape number (or hit RETURN for the current 
shape) and watch the screen. Reading left to right, you will see each 
vector of the shape, indicated by its value (0-255), and an interpreta- 
tion of the moves within that vector. Inverse type indicates Move & 
Plot. Normal type indicates Move & Don t Plot. After the analysis, hit 
ESC to see a graphic display of that shape, or RETURN for another 
vector analysis. 

Run the "APPLE MECHANIC" program* 
and select OPTION "K" for 
recent update information and 
special notes regarding the Apple lie and lie. 

• This program runs when you boot the Apple Mechanic disk. 
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MORE ROOM FOR HI RES PROGRAMS 


Why did they put hi-res in the middle of everything? Actually, I 
don’t care why. I just want to know how to solve the problem it 


causes. You see, programs and pictures are stored in consecutive 
memory locations. An Applesoft program normally starts at 
location 2049 (S801) and can be nice and long, ending 
somewhere up in the 36,000 range, making it potentially over 
30,000 bytes in size, a nice big program by my standards. 
HOWEVER, right in the middle of all this, at locations 8192- 
24575 (S2000-5FFF), are hi-res pages one and two. Anything 
drawn on these pages will zap any program long enough to even 
think of occupying part of that space. For example, an HGR can 
actually delete a large chunk of an Applesoft program. So really, a 
normally loaded Applesoft program must fit between 2049 and 
8000 or so, depending on the number of variables involved in the 


program. 


Solution * 1 : Use hi-res PAGE TWO, a nice friendly page. Just 
start off with an HGR2; then subsequent hplot commands and the 
like will be executed on page two. Now your program can be 
14,000 bytes long instead of only 6,000 (approximate numbers). 

You can’t use the four text lines below hi res, however; your 
Applesoft program occupies that space (page two of text). 

Solution # 2 \ Set LOMEM just above page two with a “LOMEM: 
24576” command at the start of your program. This will make 
Applesoft store variable information above page two instead of at 
the normal location between your program and page one. Use 
“LOMEM: 16384” if you don’t need hi res page two. 

Solution #3: Load your entire program above both hi-res pages 
at location 24576 (or at 16384 if you are not going to use page 
two). Now you’ve got a lot more program space. To load at the 
new location, you need to poke a zero at the new location and 
new numbers into the start-of-program pointer at 103 and 104. If 
you insert the following program line at the start of your 
program, it will do the trick for you. 

1 LOG ~ 24576 + Is IF PEEK Cl. 03) + PEEK 
(104) * 256 < > LOG THEN POKE LOG - 

.1,0! POKE 103, LOG -• I NT (LOG / 256) * 
256s POKE 104, I NT (LOG / 256) s PRINT 
GHR* <4)5 "RUN THIS PROGRAM" 

Note: Be sure to SAVE your program with the above line added before 
you run it. 
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Apple Stiape Table Vectors 


$00/000: (end) 
$01/001: R 
$02/002: D 
$03/003: L 
$04/004: 
$05/005: 0 
$06/006: H 

$07/007: H 
$08/008: UR 
$09/009: RR 
$0A/010: OR 
S0B/01 1: LR 
$OC/O12:0R 
$00/01 3: 0R 
$0E/01 4: QR 
$0F/01 5: gR 

$10/016: UD 
$11/017: RD 
$12/018: DO 
$13/019: LD 
$14/020: 00 
$15/021: 0D 
$16/022: 0D 
$17/023: HD 
$18/024: UL 
$19/025: RL 
$1 A/026: DL 
$1 B/027: LL 
$1 C/028: 0L 
$1 D/029: 0L 
$1 E/030: 0U 
$1F/031: HL 


$20/032: U0 
$21/033: 
$22/034: D0 
$23/035: L0 
$24/036: HP] 
$25/037: 2J 
$26/038: HE 
$27/039: w 
$28/040: U0 
$29/041: R0 
$2 A/042: D0 
$2B/043: L0 
$2C/044: BE 

$ 20 / 045 : rrm 

$2E/046: HU 
$2F/047: HU 

$30/048: U0 
$31/049: R0 
$32/050: D0 
$33/051: L0 
$34/052: HP] 
$35/053: HE 

$36/054: HE 
$37/055: HE 
$38/056: UH 
$39/057: RH 
$3A/058: D[j 
$3B/059: L[J 
$3C/060: HP 

$30/061: HS 

S3E/062: HS 
S3F/063: HJ 


$40/064: UUR 
$41/065: RUR 
$42/066: DUR 
$43/067: LUR 
$44/068: 0UR 
$45/069: 0UR 
$46/070: BUR 
$47/071: HUR 
$48/072: URR 
$49/073: RRR 
$4A/074: DRR 
$4B/075: LRR 
$4C/076: 0RR 
$4D/077: 0RR 
$4E/078: ERR 
$4F/079: BJRR 

$50/080: UDR 
$51/081: RDR 
$52/082: DDR 
$53/083: LDR 
$54/084: 0DR 
$55/085: QDR 
$56/086: QDR 
$57/087: flOR 
$58/088: ULR 
$59/089: RLR 
$5 A/090: DLR 
S5B/091: LLR 
$50/092: 0LR 
$50/093: 0LR 
$5E/094: 0LR 
$5F/095: 2]LR 


$60/096: U0R 
$61/097: R[p 
$62/098: D0R 
$63/099: L0R 
$64/100: HPlR 

$65/101: HER 

$66/102: HPl R 
$67/103: HER 
$68/104: U0R 
$69/105: R0R 
$6A/1 06: 00R 
$6B/1 07: L0R 
$6C/ 1 08: HTTlR 
$6D/109: HTTl R 
$6E/1 10: HTTl R 
$6F/i 1 1: miR 

$70/112: U0R 
$71/113: R0R 
$72/114: D0R 
$73/115: LBR 
$74/116: HER 

$75/117: HE r 

$76/118: HER 
$77/ 11 9: JER 
$78/120: UflR 
$79/121: R[|R 
$7 A/ 122: DQR 
$7B/1 23: LflR 
$7C/1 24: BB R 
$7D/ 1 25: EUR 
$7E/1 26: HSR 
$7F/1 27: HSR 


Shape Table Structure 

Hello. This is extra information for advaneed programmers, and is in NO 
WAY necessary in order to create shape tables with Apple Mechanic 
programs. 

Each shape in a shape table is made up of a series of values, 0-255 
( SOO-SFF ). Each value or byte can represent from one to three moves. Each 
move in the byte can either plot or not plot. The chart above shows the 2 56 
possibilities. Reverse type signifies Move & PLOT. Normal type means 
Move & DON’T PLOT. Vector #0 (SOO) means “Move Up” only if it is the 
first vector in a shape. Otherwise, Zero means END OF SHAPE. Notice how 
no vector can end in a Move-Up. Also, if a vector makes three moves, the 
third move cannot plot. To move up several times without plotting, you 
must use a vector like #193 (SCI )— Move-Right, Move-Up, Move-Left. 

To construct a shape “by hand”, draw it, dot by dot, on grid paper, 
then draw a line through each dot. Now find equivalent vectors from the 
table. Except for not being able to move up, you could construct any shape 
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HEBH : PLOT & MOVE Up, Right, Down, Left 
UROL : NO-PLOT & MOVE Up, Right, Down, Left 


$80/128: UUD 
$81/129: RUD 
$82/130: DUD 
$83/131: LUD 
$84/132: HUD 
$85/133: QUO 
$86/134: QUO 
$87/135: QUD 
$88/136: URD 
$89/137: RRD 
S8A/138: DRD 
$8B/1 39: LRD 
$8C/i 40: gao 

S8D/141: BRD 
$8E/1 42: HRD 
$8F/1 43: 3RD 

$90/144: UDD 
$91/145: RDD 
$92/146: DDD 
$93/147: LDD 
$94/148: HDD 
$95/149: HDD 
$96/150: HDD 
$97/151: HDD 
$98/152: ULD 
$99/153: RLD 
$9A/1 54: DLD 
$9B/ 1 55: LLD 
$90/ 1 56: HL-D 
$9D/1 57: 0LB 
$9E/ 1 58: HLD 
$9F/1 59: HLD 


$A0/1 60: UHD 
$A1/161: RHO 
$A2/ 1 62: DHD 
$A3/1 63: LHD 
$A4/1 64: pjJHD 
$A5/1 65: rTTTl D 
$A6/1 66: EH O 
$A7/1 67: USD 
$A8/1 68: UQD 
$A9/1 69: RQD 
$AA/1 70: RQD 
$AB/ 171: LBD 
$AC/1 72: TT71 P 

$ad/i 73 : rrm p 

$AE/1 74: rrm p 
$AF/ 175: fWTl D 

$B0/1 76: UHD 
$B1 /I 77: RHD 
$B2/ 178: DHD 
$B3/ 1 79: LHD 
$B4/180: [TF1 P 
$B5/ 1 81 : I7TTD 
$B6/ 1 82: Tbl P 
$B7/1 83: HQD 
$88/184: UHD 
$B9/1 85: RHD 
$BA/ 1 86: DHD 
6BB/187: LHD 
$BC/1 88: HJD 
SBD/189: mi D 
$BE/ 1 90: HJD 
SBF/191: U|D 


$00/192: UUL 
$01/193: RUL 
$02/194: DUL 
$03/195: LUL 
$04/196: HUL 
$05/197: EUL 
$06/198: HUL 
$07/199: HUL 
$08/200: URL 
$09/201: RRL 
SCA/202: DRL 
$CB/203: LRL 
$00/204: IRL 
$CD/205: ERL 
$CE/206: HRL 
$CF/207: HRL 

$00/208: UDL 
$D1 / 209: RDL 
$02/210: DDL 
$D3/21 1 : LDL 
$D4/ 212: HDL 
$D5/2 1 3: EDL 
SD6/214: HDL 
$D7/215: HDL 
$D8/216: ULL 
$D9/2 1 7: RLL 
$DA/21 8: DLL 
$DB/2 1 9: LLL 
$00/220: H>-L 
$DD/221 : Ell 
$DE/ 222:H>-L 
$DF/223: flLL 


SE0/224: UHL 
$E1/225: R0L 
$E2/226: B^L 
$E3/227: LHL 
$E4/228: [TUl L 
$E5/229: fTTH L 
$E6/230: [°TH L 
$E7/231 : UIJL 
$E8/232: U0L 
$E9/233: REL 
$EA/234: DEL 
$EB/235: LEL 
SEC/236: [Uil L 
$ED/237: fTTHL 
$EE/238: fiTTl L 
$EF/239: Tfil L 

$F0/240: UHL 
$F1/241: RHL 
$F2/242: DflL 
SF3/243: LflL 
$F4/244: [HTl L 
$F5/245: m»l L 
$F6/246: 
$F7/247: UHL 
$F8/248: U0L. 
$F9/249: R0L 
$FA/250: D[|L 
$FB/ 251 : LHL 
$FC/252: 22L 
$FD/253: 17T1 L 
$FE/254:[2!L 
$FF/255: [JJL 


with vectors 0-7. In the interest of efficiency, however, include as many 
moves as possible in each vector. Here are three sample shapes: 

• •> E! 13 A 

SHAPE 1 SHAPE 2 SHAPE 3 ^ 

Let’s work in hex and break each shape down into a series of vectors- 

SHAPE 1: $05 (E>, $00 (end) 

SHAPE 2: $2D ( 17171) . $36 (£2), $3F < W1> . $24 ( fUH) . $00 (end) 

SHAPE 3: $0C ([Tp), $0C ([Jp), $15 (ED), $15 (Q», $06 (H)> $00 (end) 

Those are the shapes. Now for the shape table— A shape table’s first byte 
tells the computer how many shapes are in the table. The second byte is 
unused, so we’ll make it zero. The next pair of bytes* says how far the first 
byte of the first shape is from the start of the shape table. The next pair 
does the same for the second shape, and so on. 

*In hex, the second byte is most significant— For example, “08 00" means 8 
“08 01” would be 264 (8 + 256x1); “OA OF” is 3850 ( 10 + 256x15). 
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So here is our shape table at 24576 ( $6000 ) — 
6000— 03 00 08 00 0A 00 OF 00 
6008- 05 00 2D 36 3F 24 00 OC 
6010- OC 15 15 06 00 00 00 00 

And here’s what it all means— 

SHAPE 1 SHAPE 2 SHAPE 3 

NUMBER OF DISTANCE DISTANCE DISTANCE 

SHAPES v UNUSED FROM START FROM START FROM START 



05 00 2D 36 3F 24 00 0C 

SHAPE 1 SHAPE 2 SHAPE 3 

0C 15 15 06 00 


To type the above table, enter the monitor by typing “CALL -151” 
( return ) and then “6000: 03 00 08 00 0A 00 OF 00 05 00 2D 36 3F 24 
00 0C 0C 15 15 06 00” (return). Remember, these are all hex 
numbers (without $’s). To list the shape (from the monitor), type 
“6000.6014” (return). Exit the monitor by typing ctrl-C (return). 
Now your shape table is in memory at location 24576 ($6000). To 
save it, type “BSAVE SHAPES, A24576, L21” or “BSAVE SHAPES, 
A$6000, LSI 5”. To load it, type “BLOAD SHAPES”. See Using Shape 
Tables for more details. 

Shape Table Program Notes 

Here are some technical details regarding the fonts, cursors and 
locations used by the shape programs on Apple Mechanic. 

Shape # 1, the space character in each font, simply moves down and 
to the right without plotting and cannot be reprogrammed from Font 
Editor. 

Shape #99 in the fonts move without plotting from the bottom 
right of a character to the top left of the next character. That’s why 
you will see an “XDRAW 99” after each character is drawn. 

Shape #100 is a “do nothing” shape, vector 25, handy for putting 
the hi-res cursor where you want it without moving or plotting. 

CURSORS: This shape table is put to extensive use in Apple 
Mechanic. Shapes 1 & 2 are the solid and outlined plotting cursors in 
the editors. Shape 3 is a dot, used as a scanner for reading shapes and 
blown up to draw the grid in Xtyper. Shapes 4 & 5 are the upper and 
lower case cursors for Xtyper. Shape 6 is the shadow marker for Font 
Editor. Shape 7 is an underscore cursor that didn’t get used. Shapes 
5-7 all start and end at the upper left, making them good “flashers”; 
coordinates don’t have to be specified every time they are drawn. 
Shapes 8 and 9 are Shape Editor cursors. 

SH & SF are used as shape table locations. Cursors is loaded at SH 
($4000or $6000 ). The shapes being created or used are at SF ( $4 1 00 
or $6100). To access one shape table or the other, the pointer at 
232-233 is changed. 


48 SHAPE TABLE STRUCTURE 



